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IDENTIFICATION 


PRODUCT CODE: AC=F964A-MC 

PRODUCT NAME: CZRJOAQ RPO7 PERF EXER 
PRODUCT DATE: JANUARY 1, 1983 
MAINTAINER: CX DIAGNOSTIC ENGINEERING 
AUTHOR: MIKE LEAVITT 


[HE INFORMATION IN THIS DOCUMENT IS tw TO. CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 


COPYRIGHT (C) 1983 BY DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DECTAPE 
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1. 


1.1 


- ABSTRACT 


THE RPO7 PER 
INTERACTI 


RMANCE on he bite PROGRAM 
TEST DISK DRIVES C 


0 
E 
RI Ps MAY BE CONTR 
QO PERFORMING AN INTERACTIV 
T PROGRAM | D 
ES UNDER TEST ARE PERFORMING 
ERROR RATE (SEE ERROR RATE SPEC 


T 

ON 

THE SUBS 
THAT THE or 


RATE AND S 

THE PERFORMANCE EXERCISER PROGRAM WILL EXERCISE DRI 
ORT UNITS. DUAL PORT DRI 

BY LOADING AND RUNNING THE PROGRAM FROM BOTH CONTRO 

THE “PROGRAM WILL EXERCISE A MIXED SYSTEM OF DUAL PO 


TO OBTAIN INTERACTIVE TESTING, OPERATIONS ON THE MULTI-DRIV 
CONFIGURATIONS ARE oot PED (OTHER DRIVES ARE PERFORMING SEEK/SEARCH 
OPERATIONS WHILE es E D one IS ree vaste A DATA TRANSFER). OPERATIONS 
AMONG THE DRIVES ARE OPTIMIZED SO THAT A HIGH SUBSYSTEM DATA TRANSFER 
RATE OR A HIGH POSITIONING OPERATION RATE IS MAINTAINED. 


THE PERFORMANCE OF EACH DRIVE IS MONITORED BY THE PROGRAM. IF A 
DRIVE EXCEEDS A PRESET NUMBER OF ERRORS IN ANY OF SEVERAL CATEGORIES, 
THAT DRIVE IS a Hap rat’ (THE OPERATOR MAY OVERRIDE 


F 
V 
TH 
T 
YS 
IV 
EK 
AN 


ar-<<c le OOM 6} 


M THE 
OPERATOR OR AUTOMATICALLY AT AN INTERVAL DETERMINED ay" THE OPERATOR. 


ALL DATA TRANSFER COMMANDS EXCEPT WRITE HEADER & DATA AND WRITE CHECK 
HEA Ww i DATA ARE USED. RECALIBRATE AND READ-IN PRESET COMMANDS ARE 

USED AT STARTUP AND DRIVE INITIALIZATION. RECALIBRATE, OFFSET, AND 

RETURN-TO-CENTERLINE COMMANDS ARE USED DURING ERROR RECOVERY. 


THE DATA gry A lh adage ARE SELECTED RANDOMLY EXCEPT FOR THE 
WRITE CHECK NDS. THE WRITE es COMMANDS ARE USED TO yee 


A PREVIOUS uRITE PERATION. THUS, WHEN A WRITE COMMAND IS SE 
May WRITTEN 1S VERIFIED BY THE APPROPRIATE WRITE CHECK 


DEPENDING UPON WHETHER THE PROGRAM HAS SEEN LOADED VIA APT AUTOMATIC 
R APT D A 43 Ae : nic Pr eanive 
ARE SELECTED VIA SW Itch REGISTER SETTINGS AND ERRORS ARE REPORTED 


ON THE CONSOLE TERMINAL. 
GENERAL DOCUMENT NOTES 


A. - REFERENCE TO ALL NUMBERS IN THIS boCURE TION, TO INDICATE THE 

ASE OF A NUMBER LARGER THAN SEVEN. PERIOD(.) WILL FOLLOW THE 

NUMBER TO INDICATE DECIMAL OR NO PER 10D WILL FOLLOW THE NUMBER 

TO INDICATE OCTAL. JF THE NUM RS AT THE END OF A SENTENCE, 
OUBLE PERIOD(. .) INDICATES DECIMAL AND A SINGLE PERIOD( 

ert OCTAL.” ALSO, ANY REFERENCES TO TIME ARE ALWAYS IN 
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2.1 


2.2 


2.3 


3.2 


3.3 


REQUIREMENTS 


EQUIPMENT 

PDP-11 PROCESSOR 
20K MEMORY 

KWil)eL OR KW11-P CL 
PROGRAM LOADING DEV 
TERMINA oe 


L 
RH11 OR RK70 CONTR 
1 10 8 DISK DRIVES 


MEDIA 


OCK 
ICE 
LLER 

(RP07"S) 


THE PERFORMANCE Angad fe yet bag bed FORMATTED DIsk 
Seg GENERATED BY THE RPO? FORMATTER PROGRAM (ISSFMT). 

THE PACKS MUST BE FORMATTED IN 32. SECTOR (16 BIT) MODE; THE 
ALTERNATE (30. SECTOR = 18 BIT ) MODE IS NOT SUPFORTTED. 


PRELIMINARY PROGRAMS 
RPO7 FRONT-END TEST 
RPO? FUNCTIONAL TEST 


OPERATING PROCEDURE 


LOADING THE PROGRAM 
THE PROGRAM MAY BE LOADED BY EITHER OF THE FOLLOWING MEDIA: 


-PAPER TAPE, USING THE STANDARD PAPER TAPE PROCEDURE 
~XXDP MEDIA, USING ANY XXDP DEVICE 


STARTING ADDRESSES 
200 = START ADDRESS, ALL SWITCHES CLEAR (SEE SECTION 3.4) 
WHEN THE PROGRAM IS STARTED, A DATA PATTERN WILL BE WRITTEN TO 
ALL ON-LINE DRIVES IN A SEQUENTIAL SEEK MODE. UPON COMPLETION OF 
THE WRITE, THE PROGRAM GOES INTO A TESTING MODE. 
204 - tel cai ADDRESS, THE a ig ADDRESS PROVIDES THE OPERATOR WITH 
THE oot pF TO CHANGE THE DEFAULT RP/RH ADDRESSES (SEE SECTION 


4. PROGRAM PARAMETERS (SEE SECTION 4.1) OR CHANGE 
DRIVE tim "PARAMETERS (SEE SECTION 4.2). 


PROGRAM CONTROL 


SEQ 0005 
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3.4 


PROVIDED THE PROGRAM HAS 7 LOADED AND STARTED VIA THE APT DUMP 
MODE OR THE DIAGNOSTIC IS RUNNING IN STAND ALONE PROCESSOR/DRIVE 
OPERATIONS ARE INITIATED AND CONTROLLED BY xEYBOARD COMMANDS AND 
SWITCH REGISTER SWITCH SETTINGS. 


HOWEVER, IF THE PROGRAM IS LOADED VIA APT SCRIPT MODE ALL SETUP 

AND SWITCH mee taret SETTINGS WILL BE PROVIDED THROUGH THE APT E TABLE. 
TYPEOUTS FROM THE USER DIAGNOSTIC MAY OR MAYNOT BE INHIBITED 

At a see WHETHER OR NOT THE APPROPRIATE BIT IN THE E TABLE 


SWITCH OPTIONS 


IF THE PROGRAM iS BEING RUN ON A SWITCHLESS PROCESSOR THE PROGRAM 
WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS NOT PRESENT 

AND WILL USE A ‘SOFTWARE’ SWITCH REGISTER. THE ‘SOFTWARE’ SWITCH 
REGISTER IS LOCATED AT LOCATION 176 . THE SETTINGS OF THE ‘SOFTWARE’ 
SWITCHES ARE CONTROLLED THROUGH A KEYBOARD ROUTINE WHICH IS CALLED 
BY TYPING A * ROL G*. THE PROGRAM WILL RECOGNIZE THE “CONTROL G' 
AT ANY TIME EXCEPT WHEN THE PROGRAM IS_IN KEYBOARD ENTRY MODE, OR 

S AT A HIGHER PRIORITY PROCESSING AN DRIVE INTERRUPT. THE ‘SOFTWARE 
SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE TO THE 


C 
PROMPT FROM THE SWITCH ENTRY ROUTINE: 
*SWR = NNNNNN NEW =" 


EACH TIME SWITCH SETTINGS ARE ENTERED, THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED. ‘RUBOUT’ 
an Ag U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS DURING 


ON PROCESSORS WITH — SWITCH REGISTERS, bs a, SWITCH 
REGISTER MAY BE USED, IF THE PROGRAM 5 eee ALL 1°S_IN THE SWITCHES. 
ALL SWITCH REGISTER REFERENCES WILL BE TO THE “SOFTWARE* REGISTER 
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 


SW<15>=1 HALT ON ERROR 

SW<14> NOT USED 

SW<13>=1 INMI8SIT ERROR TYPEOUT 

SW<12> ae USED 

SWw<11> 

SW<10>=1 BELL RROR 

SW<09>=1 CHANGE END OF PASS TO 1/4 OF NORMAL 

Sw<09> NOT U 

SW<08>=1 MANILA END OF PASS yt ge 33 

SW<07>=1 DISPLAY ALL DATA COMPARE ERRORS 

Pt fe DO NOT ALTER THE CURRENT OPERATION PARAMETERS 

SW<05>=1 PARTIAL REGISTER DISPLAY IF ERROR; DO NOT DISPLAY 
ECC CORRECTION RESULTS 

SW<04>=1 INHIBIT MAXIMUM ERROR COUNT ee ee DO NOT DEASSIGN 
DRIVES WHEN END OF TEST IS REAC HED 

SW<03>=1 DISPLAY THE SECTOR IN ERROR (BEFORE RETRY ATTEMPTS) 
IF *DCK*, ‘DTE*, OR ‘WCF’ Rg Fk . AFTER THE 28TH 
RETRY IF UNCORRECTABLE 'D 
Hd tek PARE ERRORS * EF <0 “ RFT DISPLAY REST 

SW<02>=1 INHIBIT SUBSYSTEM STATUS TYPEOUT DURING STARTUP 


SEQ 0006 


H 1 
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INHIBIT PERFORMANCE REPORT AFTER SPECIFIED TIME 

PROMPT “WRITE ANYWHERE’ QUESTION DURING AUTO TEST MODE 
INHIBIT DATA COMPARE AFTER READ COMMAND, W/O ERROR 
READ ONLY MODE 


SW<01>=1 
SW<00>=1 


3.5 PASS/TEST TERMINATION 


A_PASS IN RANDOM 'T* COMMAND MODE OR SEQUENTIAL ‘T* COMMAND MODE IS 
DETERMINED BY Eee BITS pict OR SEEKS PERFORMED. THE NUMBER OF BITS 
OR SEEKS REQUIRED FOR A_ PASS IS DERIVED FROM EITHER THE SOFT ERROR 
RATE SPECIFICATION OR THE SEEK ERROR RATE SPECIFICATION. 

THE SOFT ERROR SPECIFICATION FOR THE RP DRIVE IS NO MORE THAN 1 SOFT 
ERROR (NON-DISK RELATED) IN 1 X 10°10 BITS READ. (SEE SECTION 3.5.1 


FOR THE 90% CONFIDENCE LEVEL) 


THE SEEK — SPECIFICATION FOR THE RP DRIVE 1S NO MORE THAN 1 SEEK 
re X 10*°6 SEEKS. (SEE SECTION 3.5.1 FOR THE 90% CONFIDENCE 


PASS IN ‘WwW’ OR 'R' COMMAND MODE IS DETERMINED BY THE MAXIMUM 
Disk ADDRESS LIMITS SETUP BY THE OPERATOR. 


3.5.1 PASS TERMINATION 
END OF PASS FOR A SINGLE DRIVE IN THE RANDOM ‘T* COMMAND MODE OR 


SEQUENTIAL *T* COMMAND MODE, 1S DETERMINED BY ONE OF THE FOLLOWING 
CONDITIONS. 


A. If PARAMETER ‘ENDING’ IS 1, END OF PASS O¢CURS WHEN THE DRIVE 
HAS READ 4.128 X 10*°9 BITS (2.58 X 10°8 W 
TH END OF PASS OCCURS WHEN THE DRIVE HAS RREAD 1.032 x 10° § 


E 
BITS (.645 X 10*8 WORDS). 


B. IF PARAMETER ‘ENDING’ IS 0, END OF PASS OCCURS WHEN THE DRIVE 
HAS PERFORMED 1 X 10°6 SEEKS. 


END OF PASS FOR A_ SINGLE DRIVE IN ‘W' OR 'R' COMMAND MODE, IS 
DETERMINED AS FOLLOWS. 


A. WHEN A SEQUENTIAL SEEK _IS MADE BEYOND THE MAXIMUM D 
LIMITS SET BY THE OPERATOR, THE PASS IS CONSIDERED E 


3.5.2 TEST TERMINATION 
IF SWwO4 IS CLEAR(O), THE TEST FOR A DRIVE IS TERMINATED WHEN: 


- THE DRIVE “ COMPLETED THE NUMBER OF PASSES SPECIFIED IN 
PARAMETER ‘PASS 

. THE TOTAL ERRORS ACCUMULATED EXCEED 25. . 

- A FATAL ERROR OCCU .* EMi2 OR EM14. 

. 4 ge wee HE DRIV 

- THE NUMBER OF ape yf SPECIFIED BY He? oo ha HAVE BEEN 

REACHED, WHEN RUNNING IN ‘XXDP* CHAIN MODE, ‘ACT11° CHAIN 

MODE OR ‘APT' SCRIPT MODE (ANY AUTO MODE). 


ISK fete 
NDED 


ie 


1 
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3.6 RUN TIME 
THE EXERCISER PROGRAM MAY BE RUN IN TWO MODES. (SEE SECTION 3.5.1) 
THE PROGRAM RUN TIME VARIES GREATLY DEPENDING ON THE OPERATION 
MODE SELECTED THe AREAD/WRITE RATIO PARAMETER ("RATIO"), AND BY 
SWR SWITCHES 6, 2. 
3.6.1 DATA TRANSFER MODE (DEFAULT) 
ONE DRIVE = APPROX. 45 MIN. (TO REACH 4.128 xX 10*°9 BITS (2.58 X 10*8 WORDS) 
3.6.2 SEEK VERIFICATION MODE 
PARAMETER "MAX WRD CNT’ = 256. (1 SECTOR) 
PARAMETER "MAX TRK' = "MIN TRK* (SAME VALUES) 
PARAMETER "MAX SEC’ = "MIN SEC’ (SAME VALUES) 
sucOI> £1. (NO. DATA COMPARE) 
SW<00> =1 (READ ONLY MODE) 
ONE DRIVE = APPROX. 4.0 HRS (TO REACH 1 X 10°6 SEEKS) 
3.7 DUAL PORT OPERATION 
A. LOAD THE PERFORMANCE EXERCISER PROGRAM INTO BOTH PROCESSORS. 
B. SWITCH THE ‘CONTROLLER SELECT’ SWITCH TO ‘A/B" ON EACH DRIVE 
WHICH IS TO BE TESTED AS A DUAL PORT DRIVE AND CYCLE THE DRIVES UP. 
C. START THE PROGRAM IN EACH PROCESSOR. RUN THE PROGRAM AS THOUGH 
EACH PROCESSOR WERE RUNNING INDEPENDENTLY OF THE OTHER. 
3.8 XXDP, ACT11, APT11 COMPATIBILITY 
THIS PROGRAM IS COMPATIBLE WITH ACT11 AND APT11. IN BOTH DUMP AND 
AUTOMATIC MODES. 
THIS PROGRAM IS ALSO, COMPATIBLE WITH XXDP IN DUMP AND CHAIN MODES, 
AND PROVIDES MEDIA PROTECTION IN THE CASE WHERE THE RPO? IS THE 
XXD? LOADING DEVICE. 
AUTOMATIC MODE OR CHAIN MODE (MONITOR) 
1. THE BUS ADDRESS AND CONTROLLER INTERRUPT VECTOR ARE DEFAULTED TO 
176700 AND 254 RESPECTIVELY. 
DUMP MODE (NO MONITOR) 
1. INPUT DIALOGUE PROMPTED AFTER PROGRAM STARTS 
3.9 APT ETABLE DEFINITIONS 


THE FOLLOWING DEFINITIONS ARE VALID FOR SPE 


CIFYING APT ENVIRONMENTAL 
TABLE (ETABLE) ENTRIES,VIA RUNNING THE APT UTIL 


ITY PROGRAM ‘'TSP"': 


SEQ 0008 
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1. SOFTWARE ENVIRONMENT: 


1 IF APT SCRIPT MODE 
0. IF STANDLONE MODE 


2. ENVIRONMENT MODE: ~ 


BIT 7 = 1 ETABLE DOES SIZING 
= 0 PROGRAM DOES SIZING 

Bil 6 = SPOOL MESSAGES TO APT IF SCRIPT MODE 
= DON'T SPOOL TO APT 


1 
0 
BIT 5 = 1 SUPPRESS TTY CONSOLE OUTPUT 
= 0 ALLOW TTY CONSOLE OUTPUT 


BIT 4 TO BIT O ARE NOT USED 


3. SWITCH 1 (SOFTWARE SWITCH REGISTER) 
IF ENVIRONMENT MODE BIT 7 (SIZING BIT ) IS SET 10 1, 
THE SOFTWARE SWITCH REGISTER WiLL BE USED, INSTEAD 
OF THE HARDWARE TTY CONSOLE SWITCH REGISTER. 


4. SWITCH 2 (USER SWITCH REGISTER) 
NOT USED 
5. CPU OPTIONS 
NOT USED 
6. MEMORY TYPES 1-4 AND MAX MEMORY ADDRESSES 
NOT USED 
7. INTERRUPT VECTOR 1: 
USED WHEN ENVIRONMENT MODE BIT 7 = 1;DEFAULT = 254 
8. BUS PRIORITY 1: 
NOT USED. 
9. INTERRUPT VECTOR 2: 
NOT USED 
10. BUS PRIORITY 2: 
NOT USED 
11. BASE ADDRESS 
USED WHEN ENVIRONMENT MODE BIT 7 = 1;DEFAULT = 176700 
12. DEVICE MAP: 
NOT USED 
13. CONTROLLER DESCRIPTOR WORDS: 
NOT USED 


14, CONTROLLER DESCRIPTOR WORDS: 
NOT USED 
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CONTROLLING THE PROGRAM 


THE FOLLOWING ro “aaa cect ARE USED BY THE KEYBOARD ENTRY 
ROUTINES IN THE PROGRA 


A. TO DELETE AN INCORRECT CHARACTER FROM AN ENTRY STRING, TYPE A 
RUBOUT'. TYPING A RUBOUT WILL DELETE SUCESSIVE CHARACTERS 
FROM THE INPUT. 
B. TO DELETE AN ENTIRE LINE, TYPE A ‘CONTROL U* (*U). 
C. AN ENTRY MUST BE TERMINATED BY EITHER A ‘CARRIAGE RETURN® OR 
E ‘PERIOD’ TERMINATION Me er tai 


Y A ‘P I G OGRAM WILL 
ACCEPT THE ENTERED VALUE AND WILL DEFAULT TO THE PRELOADED VALUES 
FOR ANY REMAINING ENTRIES. 


D. IF A ‘CONTROL C* IS TYPED ar Bali ma ING MODE, THE PROGRAM 
WILL ENTER THE COMMAND MODE. IF ROL C* IS TYPED DURING 
"ENTER COMMAND’ SEQUENCE, wITH NO DR IVE ASSIGNED, THE PROGRAM 
WILL B STARTED AT LOCATION 204 . OTHERWISE, THE PROGRAM WILL 
RETURN TO ‘ENTER COMMAND’ PROMPT AND WAIT FOR A CORRECT SEOUCNCE 
OF Hrs + IF ‘CONTROL C* 1S TYPED DURING ANY OTHER ENTRY 
SEQUENCE, THE PROGRAM WILL RETURN TO THE BEGINNING OF THE GROUP 


SEQUENCE BEING ENTERED. 
PARAMETERS 


= 4 eel QUESTIONS ARE ag TO DETERMINE HOW THE RPO7 WILL 
BE TESTED. THE DEFAULT ANSWERS TO THESE QUESTIONS ARE ALWAYS 
AS DOCUMENTED HERE. 


*THE HELP MESSAGE CAN ONLY ~ TYPED ONCE, 
DO YOU WANT IT TYPED (L) ? 


A ‘Y* RESPONSE WILL *YPE A SUMMARY OF THE Raha REGISTER D 
ALONG WITH ALL THE COMMANDS AVAILABLE TO THE USER. A ‘N' R 
WILL NOT TYPE ANY HELP MESSAGE AND THE NEXT PROMPT Wi BE 


mm 
<ww 
vvU- 
mow 
o2- 
-_uVw~- 

me 


IF RUNNING THE MANUFACTURES VERSION OF THIS PROGRAM, THE FOLLOWING 
QUESTION WILL ASKED. OTHERWISE, CONTINUE TO THE NEXT PROMPT. 


*DO YOU WANT 132. CHARACTER ERROR MODE (L) Y ? 

A ‘Y* RESPONSE WILL ALLOW THE 132. CHARACTER eg ota fs TO BE 
TYPED TO THE OUTPUT DEVICE WHEN AN ERROR OCCURS. RESPON 
WILL OUTPUT THE NORMAL LONG ERROR TYPE MESSAGES 10 THE OUTPUT DEVICE. 


THE 132. CHARACTER ERROR POOF i; A 132. ag Bi STRING, WHICH iS 


SEPERATED INTO COLUMNS OF DATA FOR THE ERROR REPORT. THIS FORM OF ERROR 


REPORTING HELPS MANUFACTURING FIND DIFFERENT TYPES OF ERRORS MORE 


SEQ 0010 


CZRJOAO RPO7 PERF EXER MACRO V04.00 1-JAN-83 12:06:52 PAGE 3-7 SEQ 0011 
USER DOCUMENTATION 


EASILY. THE USER CAN SCAN SCAN DOWN A COLUMN, INSTEAD OF LOOKING THRU 
THE TYPICAL LONG ERROR REPORT. THE ONE DISADVANTAGE OF THE 132. 
ee ieee IS THE AMOUNT OF ERROR DATA WHICH CAN BE REPORTED 


THE FOLLOWING QUESTION AND WARNING MESSAGE ONLY APPEAR IN THE 
FIELD VERSION OF THIS DIAGNOSTIC. 


*DO YOU WANT TO WRITE ANYWHERE ON MEDIA (L) N ?° 


A ‘N’ ANSWER WILL PBUEE TT WITH 9 a) te ONLY THE FE CYLIND 
SKIP THE FOLLOWING QUESTION. ANSWER wt L_ PROCEED TO NEXT 
ee MESSAGE AND ye a THE PROGRAM IS _IN “'READ ONLY’ 
MODE (SwO=1), THE WARNING MESSAGE WiLL BE OMITTED BUT THE 
QUESTION WILL BE ASKED. 


"3 CUSTOMER DATA WILL BE OVERWRITTEN : 


CONTINUE (L) ?° 


A ‘Y* ANSWER WILL PROCEED WITH TESTING THE ENTIRE DISK. A ‘N' 
ANSWER WILL PROCEED WITH TESTING ONLY THE FE CYLINDER. 


IF ONLY THE FE CYLINDER IS TO BE TESTED, THE FOLLOWING MESSAGE 
WILL BE PRiNTED. 


*s TESTING WILL OCCUR ON FE CYLINDER ONLY *° 


AT THIS POINT, IF THE PROGRAM IS LOCKED " “READ ONLY'' MODE, THE 
FOLLOWING MESSAGE WILL BE TYPED. If THE PROGRAM IS_ NOT LOCKED IN 
“READ ONLY’’ MODE, THE FOLLOWING MESSAGE WILL BE OMITTED. 


*s PROGRAM IS LOCKED IN ‘READ ONLY* MODE *° 


WHEN THE PROGRAM IS STARTED, THE OPERATOR WILL BE ASKED TO ENTER 
PARAMETERS. THE FOLLOWING MESSAGE WILL BE DISPLAYED: 


"CHANGE PARAMETERS (L) N ?° 


IF THE ENTRY IS A ‘N* FOLLOWED BY A CARRIAGE RETURN OR JUST A CARRIAGE 
RETURN (DEFAULT), THE PROGRAM WILL NOT ALLOW ANY PARAMETERS TO CHANGED 
AND Be CONTINUE. 

If THE ENTRY IS A ‘Y* FOLLOWED BY fire ae, THE OPERATOR WILL 
BE ALLOWED 10 CHANGE THE ®ROGRAM PARAMETERS 


THE PROGRAM WILL IDENTIFY THE PARAMETER BY THE NAME GIVEN BELOW, 
DISPLAY THE CURRENT VALUE OF THE PARAMETER AND WAIT FOR THE ENTRY. THE 
PROGRAM WILL TYPE ‘INVALID ENTRY* IF THE ENTRY IS NOT CORRECT AND WAIT 
FOR A CORRECT ENTRY TO BE TYPED. (SEE SECTION 4.1.1) 

If THIS IS THE PROGRAM'S FIRST age F THE STATUS OF THE DRIVES ON THE 
SELECTED MASSBUS SUBSYSTEM WILL BE PRINTED. ON ALS SUBSEQUENT STARTS, 
THIS TYPEOUT MAY BE INHIBITED BY SETTING SW<O2> =1. 
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te SEQ 0012 


THE FOLLOWING IS AN EXAMPLE DRIVE STATUS PRINTOUT: 


"DRIVE STATUS: 
ONLINE RPO7 


NON-INTERLEAVED 


ESENT 
NOT PRESENT’ 


ie ABOVE DRIVE rare SHOWS THAT DRIVE 
- 7 WILL NOT BE TESTED. 


NOUS WhO 
2 
a 
_ 
vw 
r*] 


4.1.1 KEYBOARD ENTRY PARAMETERS 
DEFAULT VALUE 
QUESTION # BASE VALUE —«RANGE 
1 10. 8192. 6 = 8192. 
(SEE NOTE) 
2 10. 0 0 = 32767. 
3 10. 15, 0 - 32767. 
4 0. 1 1 = 32767. 


Q WILL BE TESTED, WHILE DRIVES 


FUNCTION 
CONTROLS THE MAXIMUM WORD 
COUNT USED FOR DATA TRANSFERS 


NOTE: THE PROGRAM WILL ee 


IFIY ANY 
RD COUNT AS LONG 


RY 
AVAILABLE. (WHICH EVER VALUE 


1S SMALLER) 


DETERMINES THE INTERVAL (IN 
MINUTES) BETWEEN AUTOMATIC 
PERFORMANCE REPORT TYPEOUTS; 
NO TYPEOQUT IF THIS PARAMETER 

1S 0 OR IF SW<02> =1 


4 Mind be THE INTERVAL (IN 
MINUTES) BETWEEN DATA COMPARES 
0 ye ORY AFTER A READ DATA 


MMAND. 

ALWAYS bo COMPARE IF THIS 
ET IF Sw0 

BE GRANTED,UNLESS A 

ERROR OCCURS. 

munee® OF PASSES TO END OF 


ST. (THIS PARAMETER IS NOT 
USED WHEN THE PROGRAM IS 


*DCK* 


N . 
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OPERATING IN AUTO RUN MODE) 


5 10. 0 0- 15. IF PARAMETER=0,DATA PATTERN 
1S RANDOMLY SELECTED. 
If Panne Ieaze. SPECIFIES 
ONE OF THE 15. PATTERNS. 
THE SELECTED DATA PATIERN 
1S POINTED BY THE PARAMETER 
“PATTERN. (SEE SECTION 8.4) 


6 8 000000 Q OR 1 IF PARAMETER = 0, THE WORD 
COUNT IS RANDOMLY SELECTED 


BETWEEN 6 AND THE VALUE 
"WRDCNT® (MAX WRD CNT). 
IF PARAMETER = 1, THE WORD 
COUNT WILL BE THE VALUE 
*WRDCNT' (MAX WRD CNT). 
7 8 000002 0-7 CONTROLS THE APPROXIMATE 
RATIO OF READ TO WRITE 
COMMANDS. 
VALUE &/W RATIO 
0 15/1 
1 7/1 
2 6/2 
3 5/3 
i 4/4 
\ 5 3/5 
. é 2/6 
7 1/7 
2 000001 0 OR 1 IF PARAMETER = 1, END OF PASS 


DETERMINED BY THE ‘WORDS READ’ 


COUN 
IF PARAMETER = 0, END OF PASS 
ae } oo. BY THE NUMBER 


9 8 000001 0 OR 1 IF EQ 1, DO AN APPROPRIATE 
WRITE CHECK AFTER EACH WRI 
COMMAND. IF EQ 0, SELECT W 
CHECK COMMAND RANDOMLY. 


10 6 000000 Q OR 1 IF ago lg f RANDUM 
nee a le DRESS IS 


4.1.2 CHANGE DEVICE ADDRFSS 


THE RP/RH ADDRESS AND VECTOR MAY BE CHANGED WHEN THE PROGRAM IS 
STARTED AT ADDRESS 204 OR It THE PROGRAM DOES NOT RECEIVE A 
RESPONSE WHEN IT ACCESSES THE DEFAULT RP/RH ADDRESS. 
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4.2 


(DEFAULT ADDRESS = 176700, VECTOR = 254) 
ADDRESS SELECTION EXAMPLES 


EXAMPLE 1 

RPCS1=176700 <CR> NO CHANGE IN ADDRESS 
RPVEC=000254 <CR> NO CHANGE IN ADDRESS 

EXAMPLE 2 

RPCS1=176700 17ge00<cR> CHANGE BASE ADDRESS TO 172400 
RPVEC=000254 224<CR [CHANGE VECTOR ADDRESS TO 224 


KEYBOARD COMMANDS 


THROUGH THE aps end A et ris THE alm be MAY ASSIGN DRIVES 
FOR TEST (*T* COMMAN WRITE ge po ATA ('W MMAND), 
PERFORM A_ SEQUENTIAL READ (*R* vy MAND) PERFORM WRITE DATA AND 
FOLLOWED BY TEST (*wi* COMMAND ) meQuesT” A A DRIVE PERFORMANCE 
SUMMARY ('S* COMMAND), OR DEASSIGN A DRIVE (*D' COMMAND). 


THE 'T’, ‘Ww’, "R® AND "WT* COMMANDS ARE EXCLUSIVE TO ONE ANOTHER 

ON THE SAME ORI VE UNDER TEST. THE "D' COMMAND MUST BE ENTERED IN 
ORDER 10 ISSUE A DIFFERENT COMMAND TO tHE SAME DRIVE UNDER TEST. 
EXCEPT FOR THE COMMAND, WHICH CAN BE ENTERED AT ANY TIME 
DURING THe Rest. 


IF TH” PROGRAM WAS STARTED AT ADDRESS 204 OR IF NO DRIVES ARE 
ASSI swED tor TESTING, THE FOLLOWING MESSAGE wit BE TYPE sebee 
ENTERING THE COMMAND MODE. HOWEVER, IF A “CONTROL C* IS TYPED 
WHILE TESTING IS IN PROGRESS, THE FOLLOWING MESSAGE WILL BE 
OMITTED AND THE PROGRAM WILL ENTER COMMAND MODE. 


"NO DRIVES ASSIGNED* 


WHEN THE PROGRAM ENTERS THE COMMAND MODE, THE FOLLOWING PROMPT 
WiLL BE TYPED: 


*HH:MM:SS 

ENTER COMMANDS: ' 
THE PROGRAM WILL THEN ag ANY OF THE VALID COMMANDS. AT THE 
COMPLET] A HE PROGRAM WILL EXIT COMM a | MODE AND 
TRY TC ASSIGN THE DRivets) THAT WERE REQUESTED. IF THE DRIVE(S) 
CANNOT BE ASSIGNED, ONE OF THE FOLLOWING ERROR MESSAGES WILL BE 
REPOPTED AND THE PROCESS CONTINUES FOR EACH DRIVE. 


RE SPONSE COMMAND (S) 
?DRIVE N LOAD DEVICE 1, W, R, wT 
DRIVE N OFFLINE T, WwW, R, wT 


?DRIVE N NOT ASSIGNED do. S 


CZ 
US 


CZR 
E 


R DOCUMENTATION 


JOAO RPO7 PERF EXER MACRO V04.00 1-JAN-83 12:06:52 PAGE 3-11 SEQ 0015 
2DRIVE N ALREADY ASSIGNED T, W, R, WT 
2DRIVE N NOT PRESENT T, Ww, R, WT 
2DRIVE N UNSAFE T, W, R, WI 
?DRIVE N NOT AN RPO7 T, W, R, WT 


4.2.1 


NEXT, THE PROGRAM WILL PROCESS ALL THE ASSIGNED DRIVES AS FOLLOWS: 


WHEN THE PROGRAM IS ASSIGNING THE DRIVES, THE OPERATOR WILL BE ASKED 
TO CHANGE THE DRIVE PARAMETERS WITH THE FOLLOWING PROMPT: 


“CHANGE DRIVE PARAMETERS (L) N ?° 


If THE ENTRY IS A '°N* FOLLOWED BY A CARRIAGE Ae OR JUST A rg 
~ eon (DEFAULT), THE PROGRAM WILL .” ALLOW A ay? parler TO 


IF THE ENTRY IS A ‘Y' FOLLOWED BY CARRIO GE RETURN, THE OPERATOR WILL 

BE ALLOWED TO CHANGE THE DRIVE PARAMETERS AS FOLLOWS. 

THE PROGRAM WILL FIRST TELL THE OPERATOR WHICH DRIVE IS BEING 

REFERENCED FOR CHANGES AND THE HARD WIRED DRV SERIAL NUMBER FORMAT: 
"DRIVE # N, PGXXXX. ADDRESS LIMITS; ' 

WHERE "XXX" IS THE HARD WIRED DECIMAL SERIAL NUMBER CONTAINED | IN 

THE RPSN REGISTER OF THE MBA. IF THE DRV SERIAL NU MBER IS 

JUMPERED IN THE RPSN REGISTER, "XXXX' OIL V APPEAR AS '222?° 


THE PROGRAM WILL REQUEST VALUES FOR THE FOLLOWING ADDRESS | IMIT 


PARAMETERS. 
DEFAULT VALUE 

NAME VALUE — RANGE FUNCTION 

MIN CYL ® * = 630. ba | MINIMUM CYLINDER ADDRESS 

MAX CYL 630. * = 630. THE MAXIMUM CYLINDER ADDRESS 

MIN TRK 0 0 - 31. THE MINIMUM TRACK ADDRESS 

MAX TRK 31. Q- 31. THE MAXIMUM TRACK ADDRESS 

MIN SEC 0 0 - 49. THE MINIMUM SECTOR ADDRESS 

MAX SEC 49. 0 = 49. THE MAXIMUM SECTOR ADDRESS 

e if “eo THE FIELD VERSION OF THIS Tey AND i GCEURS 
ONLY ON THE FE CLYINDER, THIS VALUE WILL BE 6 
THE MANUFACTURES VERSION OR THE FIELD VERSION OF THIS” PROGRAR AND 
TESTING IS ANYWHERE ON THE MEDIA, THIS VALUE WILL 


*T® COMMAND 


USED TO ASSIGN A DRIVE(S) FOR A TEST. THIS COMMAND IS REQUIRED 
TO PERFORM THE TEST OF THE DRIVE(S). 


FORMAT: TN<CR> 


N = DRIVE NUMBER. ny: BE 0 10 7 OR *A*. ENTRY MUST BE 
TERMINIATED BY A CARRIAGE RETURN <CR>. 


C2 
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4.2.2 


4.2.3 


4.2.4 


4.2.5 


4.2.6 
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EXAMPLE: TO<CR> = ASSIGN DRIVE 0 FOR TEST 
TACCR> = ASSIGN ALL AVAILABLE DRIVES FOR TEST 
*D* COMMAND 
USED TO DEASSIGN A DRIVE(S) BEING EXERCISED. 
FORMAT: DN<CR> 


= DRIVE NUMBER. ~ BE 0 10 7 OR ‘A*. ENTRY MUST BE 
TERMINIATED BY A CARRIAGE RETURN <CR>. 


EXAMPLE: es = DEASSIGN DRIVE 0 
DA<CR> = DEASSIGN ALL DRIVES BEING TESTED. 


*S* COMMAND 


USED TO ag 3 2 A PERFORMANCE Bg! TYPEOUT FOR THE REFERENCED 


DRIVE(S). AFTER THE ‘S* COMMAND HAS BEEN PERFORMED, THE PROGRAM 
WILL AUTOMATICALLY RESUME TESTING THE DRIVE(S) WHICH WERE UNDER TEST. 


FORMAT: SN<CR> 


= DRIVE NUMBER. ny! BE 0 10 7 OR ‘A’. ENTRY MUST BE 
TERMINIATED BY A CARRIAGE RETURN <CR>. 


EXAMPLE : pecees = TYPEOQUT PERFORMANCE SUMMARY FOR DRIVE 0 
A<CR> = TYPEQUT PERFORMANCE SUMMARY FOR ALL DRIVES 
BEING TESTED. 
*W* COMMAND 


USED TO PERFORM A SEQUENTIAL WRITE ” THE DISK, WITH DATA ACCEPTABLE 
10 THE PERFORMANCE EXERCISER PROGRAM 


FORMAT: WN<CR> 


= DRIVE NUMBER, MAY BE 0 TO 7 OR ‘A*. ENTRY MUST BE 
TERMINATED BY A CARRIAGE RETURN <CR>. 


EXAMPLE: WO<CR> = WRITE A DATA PATTERN ON DRIVE 0. 
WA<CR> = WRITE A DATA PATTERN ON ALL AVAILABLE DRIVES. 


*R* COMMAND 
USED TO PERFORM A SEQUENTIAL READ OF THE DISK. 
FORMAT: RN<CR> 


= DRIVE NUMBER. MAY BE 0 TO 7 OR ‘A’. ENTRY MUST BE 
TERMINATED BY A CARRIAGE RETURN <CR>. 


EXAMPLE: ao = READ THE DATA ON DRIVE 0. 
RA<CR> = READ THE DATA ON ALL AVAILABLE DRIVES. 


*WT* COMMAND 


cee 
USE 
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5.2 
5.2.1 


USED TO PERFORM A SEQUENTIAL WRITE DATA, FOLLOWED BY A ‘T* COMMAND. 
FORMAT: WIN<CR> 


= DRIVE NUMBER 0 TO 7 OR ‘A’, ENTRY MUST BE TERMINATED BY A 
CARRIAGE RETURN <CR>. 


EXAMPLE: wIO0<CR> = WRITE A DATA PATTERN AND TEST DR 
WIA<CR> = WRITE A DATA PATTERN AND TEST Ai 


PERFORMANCE SUMMARY TYPEOUT 


THE PROGRAM WILL DISPLAY A 4 gh rie REPORT FOR THE DRIVES 
BEING EXERCISED. THIS REPORT WILL BE DISPLAYED AUTOMATICALLY 
IF THE PARAMETER “INTRVL' IS NOT ZERO AND SW<02>=0, oe IF THE 
DRIVE HAS REACHED THE DEFINED NUMBER OF PASSES AND S$ uc08>=0, 

OR IF THE OPERATOR REQUESTS TO DO SO BY USE OF THE °S* COMMAND. 


THE REPORT TYPEOUT CONTAINS THE FOLLOWING FIELDS: 


*TIME® ELAPSED TIME OF PROGRAM 

"DRIVE DRIVE NUMBER - DRIVE TYPE 

*DRV S/N° HARD WIRED MASSBUS ADAPTER SERIAL NUMBER(RMSN) 
*PASS' PRESENT PASS COUNT FOR THE DRIVE 

*WRLS WRITN /* 

* PASS' NUMBER OF WORDS WRITTEN EACH PASS BY THE DRIVE : 
cues ten TOTAL NUMBER OF WORDS (X10°6) WRITTEN BY THE DRIVE 
* PASS’ NUMBER OF WORDS READ EACH PASS BY THE DRIVE 
corteat TOTAL NUMBER OF WORDS (X10°6) READ BY THE DRIVE 

* PASS* NUMBER OF SEEK OPERATIONS EACH PASS BY THE DRIVE 

* TOTAL’ TOTAL NUMBER OF SEEK OPERATIONS BY THE DRIVE 
*SOFT* NUMBER OF SOFT DATA ERRORS 

*HARD* NUMBER OF HARD DATA ERRORS 

*SKI* NUMBER OF ‘SK RRORS 

*MISP® NUMBER OF PROGRAM DETECTED POSITIONING ERRORS 
*OTHER’ TOTAL ERRORS OF OTHER TYPES 


NOTE: ERRORS EM1, EM2, GMS. EM4, EMS, & EM10 ARE NOT INCLUDED IN THE 


‘OTHER’ ERROR TOTAL 
SOFT/HARD ERROR DEFINITIONS 
HARD ERRORS 


A. A ‘DTE* (DRIVE A at Nae ape ‘7 A *DCK’ (DATA CHECK ERR 
WHICH OCCURS DURING A READ DATA OR A READ HEADER & DAT .. "OPERATION 
AND IS NOT CORRECTABLE OR DOES NOT BECOME CORRECTABLE AFTER THE 
PROGRAM HAS PERFORMED THE COMPLETE RETRY SEQUENCE ON THE BAD 


THE RETRY SEQUENCE IS 16. RE-READS AT TRACK CENTER AND 2 ATTEMPTS 


SEQ 0017 
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5.2.2 


6.1 


6.2 


7.1 


BOTH AT POSITIVE AND NEGATIVE OFFSETS. 


SOFT ERRORS 


A. tCC CORRECTABLE *DCK* ERRORS. 
B. ‘DCK* @ ‘ECH’ ERRORS WHICH BECOME ECC CORRECTABLE DURING 
~ pe OR WHICH ARE READ CORRECTLY DURING RETRY 
C. ry DER READ ERRORS = READ DATA, READ HEADER & DATA, OR 
WRITE ts COMMANDS 
D. ‘DTE* ERRORS WHICH ARE CORRECTED OR WHICH BECOME ECC CORRECTABLE 
*DCK* ERROR DURING THE RETRY SEQUENCE. 


DATA CHECKING & ERROR RECOVERY 


DATA COMPARISON 


DATA COMPARISON OCCURS AFTER EACH ‘RDDAT’ (READ DATA) OR ‘RDHD* 
(READ HEADER AND DATA) OPERATION UNDER THE FOLLOWING CONDITIONS: 


A. THE COMMAND TERMINATED WITH NO ERRORS AND SwW<01>=0 

B. THE OPERATION TERMINATED WITH "DCK" SET AND THE ERROR IS ECC 
CORRECTABLE OR THE SECTOR IN ERROR IS READ CORRECTLY AFTER 
RETRY ATTEMPTS. 

VERIFICATION OF DATA WRITTEN 

DATA VERIFICATION IS ert ‘hee ae THROUGH READING THE DATA BACK 

AND MATCHING THE DATA WITH ONE OF THE 15. PATTERNS OR THROUGH 

ISSUING A WRITE CHECK COMMAND AFTER DOING A WRITE DATA COMMAND. 

BAD ADDRESS FLAGGING 

ACCOMPLISHED BY THE RPO7 HARDWARE SKIP DEFECT. 


ERROR MESSAGES 


ERRORS ARE REPORTED ON i TTY CONSOLE. THE PROGRAM CONTAINS 

7 ag se eS WATS IF THE PROGRAM HALTS (ASSUMING, OF COURSE, 
1S NOT SET), AN UNRECOVERABLE PROGRAM CONDITION HAS 

OCCURRED OR A CENTRAL PROCESSOR FAILURE HAS OCCURRED. 


ERROR MESSAGES ARE MADE UP OF SEVERAL LINES. Ww TYPE OF -— 
HAS SEVERAL OPTIONAL LINES WHICH MAY APPEAR WITH IT. ALL OF THE 
POSSIBLE ERROR MESSAGE LINES WHICH MAY APPEAR RE GIVEN IN THE 
SECTION DESCRIBING THE PARTICULAR ERROR HEADER. 

ERROR DESCRIPTION LINES 

(THE MESSAGE TAGS ARE GIVEN FOR REFERENCE.) 


MESSAGE 


SEQ 0018 
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TAG 


EM) 


EM2 


EM3 


EM4 


EMS 


EM6 


EM10 


EM11 


EM12 


EM13 


EM14 


TEXT 


RH CONTROLLER INTERRUPT OCCURRED (RMAS=0) 


THE RH CONTROLLER INTERRUPTED AND THE ATTENTION SUMMARY 
REGISTER (RMAS) WAS CLEARED. 


UNEXPECTED ATTENTION OCCURRED 


THE INDICATED DRIVE INTERRUPTED BUT THE DRIVE WAS NOT 
PERFORMING AN OPERATION. 


MA SSBUS PARITY ERROR (MCPE=1) 


THE RH DETECTED A CONTROL BUS PARITY ERROR WHEN READING 
THE INDICATED REGISTER FROM THE INDICATED DRIVE. 


MASSBUS PARITY ERROR (PAR=1) 


THE INDICATED RP DETECTED A CONTROL BUS PARITY ERROR 
WHEN THE RH LOADED THE SPECIFIED REGISTER. 


ADDRESS PLUG CHANGE BIT SET 
THE “OPE BIT WAS SET WHEN THE INDICATED DRIVE INTERRUPTED. 
RH DIDN'T RESPOND TO ADDRESSING 


WHEN THE PROGRAM ADDRESSED THE RH, NO RESPONSE WAS RECEIVED 
FROM THE INDICATED ADDRESS. 


UNCORRECTABLE MASSBUS PARITY ERROR 


hy F's tt HAS TRIED 3 TIMES TO READ OR WRITE THE INDICATED 


FATAL MASSBUS PARITY ERROR 


4 CONTROL BUS PARITY ERROR OCCURRED WHEN ThE RH ATTEMPTED 
TO PROCESS A PREVIOUS, DIFFERENT PARITY ERROR. 


PERSISTENT DEVICE UNSAFE 

THE DRIVE BECAME UNSAFE; DRIVE CLEAR TO pny wait CID 
NOT CLEAR THE UNSAFE CONDITION. THE PROGRAM WILL 
AUTOMATICALLY 4 reg be THE pst THE DRIVE CANNOT 
BE EXERCISED UNTIL THE UNSAFE CONDITION HAS BEEN 
CLEARED BY MANUAL INTERVENTION. 

OPERATION NOT COMPLETED WITHIN TIME LIMIT 


THE DRIVE DID NOT COMPLETE THE OPERATION WITHIN 10. SECONDS 
AFTER THE OPERATION WAS INITIATED. 


UNIT WENT OFFLINE 


SEQ 0019 
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EM15 


EM20 


EM21 


EM22 


EM23 


EM24 


EM25 


EM26 


EM27 
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HE DRIVE WENT OFFLINE DURING THE INDICATED OPERATION. 

(THE *MOL* BIT BECAME ZERO.) THE PROGRAM WILL AUTOMATICALLY 
ren tue THE DRIVE. THE OPERATOR MUST REASSIGN THE DRIVE 
WITH THE 'T* COMMAND TO RE“INITIATE TESTING. 


NO RESPONSE TO PORT REQUEST 


THE PROGRAM IS TESTING A DUAL PORT 
TO THE REQUESTING PORT WITHIN 15. S 
TO THE DRIVE FROM THE REPORTING POR 


HEADER CRC ERROR 

A HEADER CRC ERROR WAS DETECTED AT THE INDICATED DISK ADDRESS. 
THE CONTENTS OF THE HEADER ARE DISPLAYED. THE OPERATION WILL 
BE RETRIED 3 TIMES. 

DATA CHECK (*DCK') ERROR 

A DATA CHECK ERROR WAS DETECTED AT THE INDICATED SE 


CTOR. 
THE FULL RETRY SEQUENCE (INCLUDING OFFSET) WILL BE INITIATED 
4 gg SECTOR IN ERROR IF THE ECC HARD ERROR ('ECH) BIT 


H HAS NOT SWITCHED 
ER PORT RESJEST 


=o 


WRITE CHECK ERROR = DATA CHECK ("DCK*) SET 


A WRITE CHECK ERROR Pier AND THE DATA CHECK (‘DC 
WAS SET. IF ‘ECH’ IS NOT SET, THE OPERATION WILL BE 
UP 10 3 TIMES; IF THE "ECH® BIT IS SET, THE OPERATIO 
BE RETRJED UP TO 16. TIMES. 


WRITE CHECK ERROR = DATA CHECK ("DCK") NOT SET 

A WRITE CHECK ERROR OCCURRED AND *DCK" WAS NOT SET. THE 
WORDS WHICH CAUSED THE ERROR ARE DISPLAYED IN THE ERROR 
MESSAGE. THE OPERATION WILL BE RETRIED 3 TIMES. 

HEADER READ ERROR = ‘FMT® BIT DROPPED 

A WRITE DATA, WRITE CHECK DATA, OR A READ DATA WAS BEING 
PERFORMED AND A ‘FMT" ERROR OCCURRED. THE A oy 5 es THE 
HEADER OF THE ERROR SECTOR AND THE ‘HCRC* BIT WAS SE THE 
CONTENTS OF THE HEADER ARE DISPLAYED. THE OPERATION WILL 
BE RETRIED 3 TIMES. 

HEADER READ ERROR = HEADER COMPARE (‘HCE*) ERROR 


SIMILAR TO EM24, EXCEPT THAT THE ‘HCE* ERROR BIT WAS 
SET INITIALLY. THE OPERATION WILL BE RETRIED 5 TIMES. 


FORMAT ERROR (‘FER") 

FORMAT Tae OCCURRED. WHEN THE HEADER WAS gir t THE 
"HCRC' BIT WAS NOT SET, THE CONTENTS OF THE HEADER ARE 
DISPLAYED. THE OPERATION WILL BE RETRIED 3 TIMES. 


HEADER COMPARE ("HCE") ERROR 


K 


*) BIT 
RETRIED 
N WILL 


SEQ 0020 
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SIMILAR TO EM26 EXCEPT THAT ine "HCE® BIT WAS SET INITIALLY. 
THE OPERATION WILL BE RETRIEF 5 TIMES. 
EmM30 MISCELLANEOUS DRIVE FO%Ch 


THIS MESS.GE IS GIVEN FOR THE FOLLOWING ERROR BITS: 
*AOE’, ‘RMR’, “ILF*, OR “ILR' 


EM31 OPERATION INCOMPLETE (‘OPI') ERROR 
A ail ua “iwLumrcETE ERROR OCCURRED AT THE INDICATED 


EM32 DRIVE TIMING «"DTE*) ERROR 


DRIVE TIMING ERhKOR OCCURRED ON THE INDICATED SECTOR. THE 
OPERAT]ON WILL BE RETRIED 3 TIMES. 


EM33 PARITY ("PAR") ERROR AFTER OPERATION STARTED 


THE *PAR* BIT WAS SET WHEN THE OPERATION WAS COMPLETED. THE 
OPERATION WILL BE RETRIED 3 TIMES. 


EM34 WRITE (LOCK FAILURE (‘WCF*) 


A WRITE CLOCK FAILURE OCCURRED DURING THE OPERATION. THE 
OPERATICN WILL BE RETRIED 3 TIMES. 


EM35 INVALID ALDRESS (‘IAE*) ERROR 

AN INVALID ADDRESS ERROR OCCURRED DURING THE OPERATION. 
EM36 WRITE LOCK (*w.E*) ERROR 

Pet by OPERATION WAS ATTEMPTED BUT THE DRIVE WAS WRITE 


EM40 RH CONTROLLER OR UNIBUS TRANSFER ERROR 


*TRE® IS SET IN THE RH CONTROL REGISTER AND N 
ERROR HAS OCCURRED. THE OPERATION WILL BE es! 
i 5 La THE ERROR WAS CAUSED BY ‘DLT’, ‘UPE' 


“35 


EM41 BUS ADDRESS OR WORD COUNT INCORRECT 
NO DRIVE ERROR OCCURRED BUT el res THE BUS ADDRESS INDICATES 
THAT AN INCORRECT NUMBER OF Ww ae WERE TRANSFERED OR THE 
WORD COUNT REGISTER IS NOT ZERO 

EM42 DATA COMPARE ERRORS = NO DRIVE ERROR DETECTED 


NO SUBSYSTEM ERROR WAS SIGNALED; HOWEVER, THE DATA DOES NCT 
COMPARE. 


EM43 CAN'T MATCH DATA READ WITH A PATTERN 
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THE DATA IN THE BUFFER DOES NOT MATCH ANY OF THE STANDARD 
PATTERNS. 


EM44 ERROR BIT(S) SET, BUT NO ERROR SIGNALED BY THE RH CONTROLLER 
THE OPERATION Se HS NORMALLY; HOWEVER, THE PROGRAM 
FOUND EITHER ERROR BITS IN THE RP SET OR ERROR BITS IN 
THE RH CONTROLLER SET. 


EM45 ECC LOGIC FAILURE 


DURING "DCK' ERROR PROCESSING, THE CONTENTS OF THE ECC 

POSITION REGISTER (RMEC1) OR THE CONTENTS OF ECC PATTERN 

REGISTER (RMEC2) WERE NOT VALID. THE POSITION REGISTER WAS 
THER 0 OR GREATER THAN 010040, OR THE PATTE?N REGISTER 


EITHER 
CONTAINED ZEROS. 
EM46 BUS ADDRESS OR WORD COUNT NOT CONSISTENT 
THE PROGRAM WAS PROCESSING AN ERROR AND FOUND THAT THE 
NUMBER OF WORDS TRANSFERED AS_ INDICATED BY THE BUS ADDRESS 
REGISTER DOES NOT AGREE WITH THE TRANSFER COUNT FROM THE 
WORD COUNT REGISTER. 
EM50 SEEK INCOMPLETE ERROR 
THE DRIVE SIGNALED EITHER ‘SKI* ERROR. 


EM51 NOT USED 


EM60 DEVICE UNSAFE 
THE INDICATED DRIVE UNSAFE ERROR OCCURRED; THE ERROR WAS 
CLEARED BY A "DRIVE CLEAR’ INSTRUCTION. 
7.2 DETAIL ERROR LINES 
THE LINE NUMBERS GIVEN BELOW ARE FOR REFERENCE ONLY. 


HH:MM:SS 


"HH:MM:SS° IS THE TIME SINCE THE PROGRAM WAS STARTED. 
(HOURS, MINUTES, SECONDS) 


LINE 2 


*PRSNT COMMAND= XXXX PREV COMMAND= YYYY' 
MNEMONICS USED FOR THE COMMANDS ARE DEFINED BELOW: 
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SEEK = SEEK (OCTAL 5) 

RECAL = RECALIBRATE (OCTAL 7) 

DRVCLR = DRIVE CLEAR (OCTAL 11) 

RELSE. = RELEASE (OCTAL 13) 

OFFSET = OFFSET (OCTAL 15) 

RTC - RETURN TO CENTERLINE (OCTAL 17) 

READIN = READIN PRESET (OCTAL 21) 

PACK - PACK A CenOML EDGE (OCTAL 23) 

SEARCH = SEARCH (OCTAL 31) 

*GETREG = GET REGISTERS (OCTAL 41) 

SETFMT = SET FORMAT (ECI OR hCI) (OCTAL 43) 
*SELDRV = SELECT DRIVE (OCTAL <5) 
CKD - WRITE CHECK DATA (OCTAL 51) 

WCKHD = WRITE CHECK HEADER & DATA (OCTAL 53) 

WRTDAT = WRITE DATA (OCTAL 61) 

FMTRK = FORMAT TRACK (WRITE HI:ADER & DATA) (OCTAL 63) 

RDDAT = READ DATA (OCTAL 71) 

RDHD - READ HEADER & DATA (OCTAL 73) 


* SPECIAL RP DRIVER COMMAND (NOT A CONTROLLER COMMAND) 


(DISPLAY OF THE RH/RP REGISTERS IN TWO GROUPS: 
RPCS1, RPCS2, RPDS, RPER1, RPER2, RPEC1 ~ ng FORM THE FIRST 


GROUP; UP. 
IF SW<O05> IS SET, ONLY THE REGISTERS IN THE FIRST GROUP WILL BE 
DISPLAYED.) 


THE ABOVE LINE WILL BE TYPED IF THE ERROR OCCURRED DURING 
THE NON-DATA TRANSFER PART OF THE OPERATION. 


** ERROR AT BAD TRACK/SECTOR’ 


THE ABOVE LINE WILL BE PRINTED IF A DATA ERROR OCCURES AT AN ADDRESS 
ON THE DISK WHICH THE OPERATOR HAS IDENTIFIED AS BEING BAD. PARAMETER 
*NOTPRT® MUST BE 0 FOR THE ERROR TO BE REPORTED. 


A WORD CALLED *STATUS® IS DISPLAYED WITH THE RP REGISTERS. THE 
CONTENTS OF THIS WORD IDENTIFY HOW THE ERROR WAS PROCESSED BY THE 
RP DRIVE HANDLER ROUTINE. (SEE SECTION 9.7) 


LINE 3 


ERROR AT CXXX TYY SZ2Z PREV ADDR= CUUU TVV Su 


THE ACTUAL ADDRESS OF THE ERROR SECTOR AND THE PREVIOUS 
DISK ADDRESS ARE GIVEN IN THIS LINE. CYLINDER, TRACK, & 
SECTOR ADDRESSES ARE IN DECIMAL. 


LINE 4 


PRSNT ADDR= CXXX TYY SZ2Z PREV ADDR= CUUU TVV SWW 


THIS LINE IDENTIFIES THE ADDRESS WHEN THE ERROR WAS DEiE 


CTED; 
THE PREVIOUS ADDRESS IS ALSO GIVEN. CYLINDER, TRACK, & SECT 
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ADDRESSES ARE GIVEN IN DECIMAL. 


START CYL= XXX END CYL= YYY 


THIS LINE IDENTIFIES THE STARTING 
yng DESTINATION CYLINDER. CYL 


CYL ae ts OR A SEEK (IMPLIED) 
INDER ADDRESSES ARE IN 


LINE 6 


START CYL= XXX END CYL= YYY ACTUAL CYL= 222 

THIS LINE IDENTIFIES THE gyn CYLINDER OF AN IMPLIED SEEK, 
THE DESTINATION CYLINDER, AND THE CYLINDER Mee peas ACTUALLY 
STOPPED AT. CYLINDER ADDRESSES ARE IN DECIMA 


LINE 7 


RPBA= XXXX RPWC= YYYY 
THIS LINE GIVES THE CONTENTS OF THE RH CONTROLLER BUFFER ADDRESS 


REGISTER AND THE RH CONTROLLER WORD COUNT REGISTER. THIS LINE IS 
NOT PRINTED IF SwW<05> IS NOT SET. 


START CYL= XXX START TRK= YY START SECTOR= 22 


THIS LINE IDENTIFIES THE STARTING DISK ADDRESS OF THE PRESENT 
OPERATION. CYLINDER, TRACK, AND SECTOR VALUES ARE DECIMAL. 


RPDA= XXXX RPCA= YYYY 


THIS LINE GIVES THE tte OF THE RP TRACK AND SECTOR 
ADDRESS REGISTER AN ? THE CONTENTS OF THE DESIRED CYLINDER 
3 aa REGISTER. THIS LINE IS NOT PRINTED IF SwW<05> IS NOT 
LINE 10 


BUFFER ADDR= XXXX WRD CNT= YYYY ACTUAL NUMBR WRDS XFRD= 2222 


THIS LINE GIVES THE STARTING ADDRESS OF THE BUFFER USED FOR THE 
CURRENT DATA TRANSFER OP ERATION, I7§ S1ZE (WORD COUNT) ND THE 
ACTUAL NUMBER OF WORD TRANSFERED. THE STARTING A RES OF THE 
BUFFER IS IN OCTAL, THE WORD COUNT AND WORDS NRANSFERED VALUE 
ARE IN DECIMAL. 


SEQ 0024 
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EXPCTD DATA= XXXX RECEVD DATA= YYYY WORD POS= 222 
THIS LINE GIVES THE EXPECTED DATA, THE RECIEVED DATA FROM THE DISK, 
OE CIMAL LOCATION OF THE WORD IN THE SECTOR. THE WORD POSITION IS IN 


LINE V2 


HEADER CONTENTS OF ERROR SECTOR= XXXX XXX XXX XXXK 


THIS LINE GIVES THE CONTENTS OF THE HEADER OF THE SECTOR WHICH 
GAVE THE ERROR. 


LINE 13 


RPEC1= XXXX RPEC2= YYYY 


THIS LINE WILL BE PRINTED AFTER A SUCi 
WHICH BECAME ECC CORRECTABLE DURING RETR 


LINE 14 


ECC CORRECTABLE WITHOUT OFFSET 


My He SF hy IN ERROR IS ECC CORRECTABLE; NO RETRY ATTEMPTS ARE 


LINE 15 


— RETRY OF A SECTOR 


READ CORRECTLY AT (NEG OR POS) OFFSET 


THE SECTOR IN ERRCR WAS READ WITHOUT ERROR AT THE INDICATED 
OFFSET VALUE. 


LINE 16 


ECC CORRECTABLE AT (NEG OR POS) OFFSET 
hs I a IN ERROR BECAME ECC CORRECTABLE AT THE INDICATED 


LINE 7 


CORRECTED ON X RETRY 
He eae WAS PERFORMED ERROR FREE ON THE INDICATED RETRY 


SEQ 0025 
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LINE 18 


UNCORRECTABLE AFTER X RETRIES 


THE OPERATION COULD NOT BE PERFORMED CORRECTLY AFTER THE 
INDICATED NUMBER OF RETRY ATTEMPTS. 


LINE 19 


DIFFERENT ERROR DURING RETRY 

WHILE THE PROGRAM WAS RETRYING THE ERROR, A DIFFERENT OCCURRED. 
If THIS LINE IS PRINTED, THE RH/RP REGISTERS WILL ALSO BE 
PRINTED (SEE LINE 2). 


LINE 20 


DATA COMPARISON ERRORS 
A PRINTOUT OF THE DATA COMPARISON ERRORS FOLLOW THIS LINE. 
LINE 21 


TOTAL COMPARE ERRORS= XXXX 


THIS LINE GIVES THE TOTAL DATA COMPARISON ERROR COUNT. THE 
VALUE GIVEN IS IN DECIMAL. 


L INE 22 


THE DATA COMPARED OK 


THIS LINE INDICATES THE RESULTS OF THE DATA COMPARISON FOLLOWING 
ECC CORRECTION. 


LINE 23" 


ECC CORRECTION RESULTS 

THE PROGRAM PERFORMED gee CORRECTION AND THE RESULTS ARE REPORTED. 
THE ADDRESS IN MEMORY OF THE WORD(S) IN ERROR ARE GIVEN, THE WORD(S) 
BEFORE CORRECTION AND THE WORD(S) AFTER CORRECTION ARE PRINTED. 


LINE 24 


ERROR BURST BEGINS AT WORD XX¥ IN DATA FIELD OF ERRCR SECTOR 


THIS IS AN INFORMATIONAL LINE WHICH WILL BE PRINTED FOR ‘DCK* ERRORS 
WHICH ARE ECC CORRECTABLE OR WHICH BECOME ECC CORRECTABLE DURING 
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RETRY, ‘XXX* IS THE WORD OFFSET VALUE FROM ‘RMEC1" AND IS IN 
DECIMAL. 


LINE 25 


ERROR WAS NOT IN THE DATA READ = 
ECC CORRECTION CAN'T BE PERFORMED 


THE DATA ERROR WAS NOT IN DATA TRANSFERED TO MEMORY. 
LINE 26 


CONTENTS OF THE ERROR SECTOR (REPORTED ABOVE) 

IF SW<O3> 1S SET, THE SECTOR WHICH GAVE THE "DCK’, "DTE* OR, 
"WCF* ERROR OR ‘HARD’ DATA CHECK ERROR IS PRINIED. THE 
CONTENTS OF THE SECTOR FOLLOW THIS LINE. 


LINE 27 


TOTALS; ERRORS:X WRDS WRITN: YYYY WRDS READ: 2222 


THIS IS THE LAST LINE PRINTED FOR ALL NON-POSITIONING 
TYPE ERRORS. 


"ERRORS IS _THE- TOTAL ERROR COUNT FOR THE DRIVE AND INCLUDES 
EVERY ERROR DETECTED, REGARDLESS OF TYPE. 


*WRDS WRITN’ IS THE TOTAL NUMBER OF WORDS WRITTEN THE DRIVE. 
*WRDS READ* IS THE TOTAL NUMBER OF WORD READ BY THE DRIVE. 
LINE 28 


TOTALS; SEEKS: XXX TOTAL POS ERR= YYY TOTAL SKI ERR= 2 
THIS IS THE LAST LINE PRINTED FOR ALL POSITIONING TYPE ERRORS. 


"TOTAL SEEKS* IS THE TOTAL NUMBER OF SEEK OPERATIONS PERFORMED 
BY THE DRIVE. 


"TOTAL OS ERR’ IS THE TOTAL NUMBER OF PROGRAM DETECTED POSITIONING 
ERROR BY THE DRIVE. 


‘TOTAL SKI ERR® IS THE TOTAL NUMBER OF ‘SKI*® ERRORS SIGNALED BY 
THE DRIVE. 


PROGRAM DESCRIPTION 


PROGRAM OPERATION 


SEQ 0027 


CZ 
BA 
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WHEN THE PROGRAM IS STARTED ett te ts APT TTY ENABLE BIT IS SET 
OR DIAGNOSTIC LOADED BY OTHER THAN APT SCRIPT MODE, ALL TABLES AND 
ARAMETERS ARE CLEARED OR INITIAL LED, THE PARAMETERS WHICH ARE 

UNDER OPERATOR TTY ENTRY CONTROL ARE CHECKED FOR VALIDITY AND 
CONSISTENCY. R OLLER INTERRUPT ENABLE (° 4 I 1,7 
Ss 4; INTERRU LE IS SET, HE KWil-L OR =P CLOCK 


PT ENA T OR K 
S STARTED. COMMAND ENTRIES WILL ‘nou BE ACCEPTED BY THE PROGRAM. 
THE PROGRAM SCANS ITS INTERNAL ASSIGNMENT TABLES, OOKING FOR: 


1) DRIVES hoe gg Thad ed DS oy 
$ PERFORMANCE REPORT TYPEOUT REQUESTS 

) Bhs S REQUIRING. COMMAND INITIATION, BUFFER ASSIGNEMENT, 
4) DRIVES COMPLETING CURRENT OPERATIONS. 


THE PROGRAM CONTINUES SCANNING 11s TABLES UNTIL AN ENTRY IS FOUND. 
IN THE CASE OF THE PROGRAM AT INITIAL START, THE FIRST ENTRY WILL 
BE MADE BY THE OPERATOR WHEN A DRIVE 1S ASSIGNED (*T* COMMAND). 


WHEN A we IS ASSIGNED, THE KEYBOARD ENTRY vay ae eat 45 Le THE 
DRIVE IS PRESENT, AN AND ONLIN HE AS NT 
ROUTINE THEN ISSUES A ‘READIN PRESET’ INSTRUCTION, SETS EMT 16". AND 
ISSUES A ‘RECALIBRATE’ INSTRUCTION. 


PARAMETERS FOR THE OPERATION ARE SELECTED AND A BUFFER IS ASSIGNED. IF 
THE OPERATION IS A WRITE OR WRITE CHECK COMMAND, THE ASSIGNED BUFFER 
WILL BE FILLED OITH” THE SELECTED PATTERN. (WRITE CHECK COMMANDS ARE 
ISSUED AFTER EACH WRITE COMMAND. THE WRITE CHECK COMMAND USES THE 
RAM ED FOR THE PRECEDING WRITE CON MAND.) CONTROL 

HE COMMAND INITIATION ROUTINE. 


ON ye FIRST LOOKS AT ~ yitine ts ADDRESS OF 
THE D EK ANOTHER uerioN TO 


mn 
oO 
~ 
o 
>» 
"> 
- 
~~ 
nm 
m 
mrs 
a) 
— 
wn 
"n- 
= 
m 
J 
o 


ONS ER DR W 
on Ese ARE SEARCHING FOR ‘TARGET’ S. K Y 
THE P gy oe IMPLIED SEEK SEARCH OPERA Us WHEN A SEARCHING 
DRIVE FINDS THE ‘TARGET® SECTOR AND INTERR urs, HE PROGRAM THEN 
ISSUES THE REQUESTED COMMAND 10 THE DRIVE THAT INTERRUPTED. 


WHEN THE CATA TRANSFER OPERATION IS COMPLETE Na DRIVE REGISTERS 


ARE STORED AND A DATA TRANSFER IS INITIATED FOR A WAITING DRIVE. 

THE OPERATION HAS BEEN COMPLETED NORMALLY, THE SAVED DRIVE aE GISTERS 
ARE CHECKED TO VERIFY THAT NO ERROR BITS ARE SET; THE RH CON 
BUS ADDRESS AND WORD COUNT ADDRESS REGISTERS ARE CHECKED TO VERIE 
THAT THE CORRECT NUMBER OF WORDS HAVE BEEN TRANSFERED AND THAT THE 

WO REGISTERS ARE CONSISTENT WITH EACH OTHER; AND IF THE COMMAND WAS 

AD , THE DATA BUFFER IS COMPARED. WHEN THIS SEQUENCE 1S 

COMPLETED, THE DRIVE 1S RETURNED TO THE ASSIGNED, INACTIVE LIST. 
PROGRAM THEN INITIATES A RANSFER ON A WAITING DRIVE 


E DAT AITING D ND 
RESELECTS AND REINITIATES ANOTHER OPERATION ON THE RELEASED DRIVE. 
ERRORS WHICH OCCUR ARE PROCESSED IN THE FOLLOWING ORDER. MULTIPLE 


SEQ 0028 
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ERRORS WILL BE REPORTED AS THE FIRST ERROR TYPE CHECKED. 
A. ERRORS REPORTED FOR OPERATIONS WHICH HAVE NOT COMPLETED NORMALLY. 


OPERATION NOT some ree. WITHIN TIME LIMIT = EM13 
UNIT WENT OFFLINE = EM1 


B. ERRORS REPORTED FOR OPERATIONS WHICH COMPLETE NORMALLY. 


CORRECTABLE UNSAFE = EM60 
eeiye TIMING ERROR = EM32 


A_CHECK ERROR = EM21 
WRITE CHECK 1A DCK SET = EM22 
HEADER CRC ERROR M20 


MAT ERR EM26 
HEADER COMPARE ERRO i = EM25 


PAR “ ERROR ° = EMSS 
"WCF ERROR = EM34 
AE’ ee a8 = EM35 


E* ERROR = EM36 
MISCELLANEOUS DRIVE ERROR = EM30 


C. ERRORS NOT FLAGGED BY THE HARDWARE ERROR DETECTION LOGIC. 


BUS ADDRESS OR WORD COUNT INCORRECT = EM41 
DATA e AS ERRORS = NO DRIVE eerie be Tes TED - EM42 


CA AT RN 

ERROR BIT(S) SET, BUT nat ERROR SIGNALED BY THE RH CONTROLLER - EM44 
ECC LOGIC FAILURE - 

BUS ADDRESS OR WORD COUNT NOT CONSISTENT = EM46 


DUAL PORT OPERATION 


DUAL evra OS eAt ioe IS eT IDENTICAL TO THE OPERATION DESCRIBED 

IN SECTION 8.1. THE DIFFERENCES ARE IN COMMAND SEQUENCE INITIATION 
AND COMMAND TERMINATION, 

WHEN THE oun. PORT ae ROUTINE IN THE EXERCISER PROGRAM RECEIVES 
A REQUEST FOR A DRIVE, THE PROGRAM VERIFIES THAT THE DRIVE IS 

ONLINE. THE rive IS°SELECTED AND THE RPCS1 REGISTER IS READ TO 

TEST THE “‘DVA"' BIT. IF THE DRIVE IS _ IN NEUTRAL, THIS WILL SEIZE THE 
DRIVE. IF THE DRIVE IS SEIZED BY THE OTHER PORT, A DRIVE CLEAR COMMAND 
1S ISSUED TO THE DRIVE TO SET ‘PORT REQUEST*. THE PROGRAM THEN CHECKS 
*DVA’_IN “RPCS1*, IF THE DRIVE 1S AVAILABLE AS INDICATED BY THE ‘DvA’ 
BIT, THE COMMAND SEQUENCE WILL BE INITIATED IN THE NORMAL MANNER (SEE 
SECTION 8.1 ABOVE). IF ‘DVA® WAS NOT SET, THE PROGRAM MAKES ENTRY 
FOR THE on yve IN AN INTERNAL "PORT REQUEST PENDING’ TABLE A 

STARTS A 15. SECOND TIMER FOR THE DRIVE. IF THE DRIVE HAS 

NOT SWITCHED TO THE REQUESTING SYSTEM WITHIN THE 15. SECOND INTERVAL, 
THE PROGRAM REPORTS A ‘NO RESPONSE TO PORT REQUEST’ ERROR. NORMALLY 
THIS ERROR MESSAGE INDICATES A FAILURE IN THE DUAL PORT CONTROL 

LOGIC IN THE DRIVE BEING TESTED; HOWEVER, UNDER CERTAIN CONDITIONS 


SEQ 0029 
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(e. G. MASSBUS PARITY ERRORS BEING REPORTED ON THE OTHER SYSTEM 
Y), THE OTHER PROCESSOR WAS UNABLE TO PROCESS THE DRIVE 
AFTER IT HAD REQUESTED THE DRIVE. THE OPERATOR MUST BE A 0 
WHAT THE OTHER SYSTEM IS DOING AT ALL TIMES TO INTERPRET THE PORT 
RELATED ERROR MESSAGES PROPERLY. 
AFTER A DRIVE HAS COMPLETED AN OPERATION, THE PROGRAM WILL STORE 
aft GISTERS AND ISSUE A 'RELEASE' TO THE DRIVE; IF THE OPERATION 
ATED WITH AN ERROR, THE DRIVE WILL NOT BE RELEASED UNTIL 
EEROR NPROCESSING ANAS BEEN COMPLETED. 
SINGLE PORT DRIVES DRIVES WHICH ARE IN NEUTRAL BUT NOT BEING 
EXERCISED BY THE OPPOSITE PORT ARE STILL TREATED AS DUAL PORT 
DRIVES IN THAT A RELEASE COMMAND IS ISSUED AT THE END OF NORMAL 
COMMAND PROCESSING OR AT THE END OF ERROR PROCESSING. A RELEASE 
COMMAND ISSUED UNDER THESE CONDITIONS HAS NO FUNCTIONAL EFFECT 


8.3 


8.4 


ON THE OPERATION OF THE DRIVE. 
SELECTION OF OPERATION VARIABLES 


A. Tatate oy i anteeee iS RANDOM BETWEEN THE VALUES IN 
MINSEC* AND ° TRACK ging § SELECTION IS RANDOM 
BETWEEN THE VALUES IN "MINTRK' AND "MAXTRK'. CYLINDER ADDRESS 
SELECTION IS RANDOM BETWEEN ‘MINCYL' MAND "MAXCYL’. IF A MINJMUM 
ADDRESS IS GREATER THAN THE CORRESPONDING MAXIMUM ADDRESS, THE 
PROGRAM WILL SWAP ‘MAX’ AND ‘MIN’ ADDRESSES AND CONTINUE. 


B. THE WORD COUNT IS RANDOMLY ser ec ree oe eee 6 AND THE VALUE 


*WRDCNT’ (MAX WRD CNT). a IS NECESSARY AS PROGRAM REQUIRES 
& pO A7 os IN hs DATA PORTION OF THE SECTOR TO BE ABLE TO MATCH 
THE DATA TO A PATTERN FOR DATA COMPARISON PURPOSES AND NEEDS 2 MORE 


LOCATIONS IF A READ HEADER & DATA COMMAND IS ISSUED. 

C. THE DATA WRITTEN IS RANDOMLY SELECTED AMONG THE 15. STANDARD 
PATTERNS. THE PARAMETER ‘PATTERN’ ENABLES THE RANDOM PATTERN 
SELECTION. IF THIS PARAMETER IS 0. 

D. THE COMMANDS ARE SELECTED RANDOMLY. WRITE CHECK DATA COMMAND IS 


PERFORMED ONLY IF THE PREVICUS COMMAND WAS THE APPROPRIATE WRITE 
DATA COMMAND. 


DATA PATTERNS 


Nas P N TA 
ANY PATTERNS. THIS ALLOWS THE OPERATOR TO SCAN THE DISK FOR ANY 
SPECIFIC PATTERN, 


PAT 1 PAT 2 PAT 3 PAT 4 PATS PAT6& PAT 7 ®*PAT 8 


SEQ 0031 


3 
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ee ee ero 


§t SOOSCSCOCOOCOOOoODOOoO 
B PAPAMAMMMMMMMMMmmimmny 
t SOOCOOOOOOOOOOCOCSO 


PE.IIMMMMMDAMMMAMMMINPD Wir COCOOCOCCOOCOCOOCOOCSoOO 
PE.AMMMMMMMMAMMAMMNMINMY =— IF COODOOCOOCOCOCOOOCOOoOO 
PE AIMMMMMMMMMMMnAMinny 1~CooQoQoooQoooo°o°ooco 
E§.ARMIMMMMMMMMMMMAMINM F&F Ir COOOOCOOOCOCOCOOOOOoOoO 
E.ARMAMMMOAMMMAMIMMINM «=< ir COOCOOOOCOOOOOOOoOOoO 
Dl el el el eel el eel el el el lel el el ed elem le lo lelelelelololalololo) 
tPOWWDWDDOWOWOWOOOOOOOONO JF I ORR RL LLL LK 
EMAAMMANMMMMAANANN es § ORE RELL 
PENMAN nnn (ork LLL 
Cd ed kd Dd Dd Det Del Dal Deed Deel ee cee kd Dd Dd dd Dd Dad Dad Dd Bd Dd ed Bd ed 
‘wore TT EP ORR RPP PEP PPL” 
terre errr ereren— AMOK KK eK SK KCC COC CCK 
PAWARARUICUICUAWRCUIOIMN CUNO ME OE ME OE MP. MP. MP. He” 
BOICUCIAWMON CUCINA CANON i 8 POPNOW OP OPI OPIN O 
PRWARCUCUCUMCUICUM CUNO BPO OPO P7 OPO O 
BOUCUICUIAWMMCUICUIAWOUANOUN OU 8999090910901 0P1.0M O 
PEMMNCICUICUMNWMATUICINAIMOAING —_- ZL EM DOMDOMOMOMOMOMOMNO 
toceoenn-OCOr KO On Or AIK OK On Or On OonrOor- Or Oo 
tere errerrerererrerer nr K— NIRA ALLL LRN O 
SB PEAIAAMAMMMIMMNMIM Mey, BEER MINOR. 
BPAMMMMMMMMMMMmiMmimimimy LLL MN OR PLL LR 
BP PAIAAMMMMMMMMMM—iMminrnny eb MN ORL LALLA. 
PB EAEAIAEOMMMMMIMIMIMIEIey MINOR RAR RRR 
terre rr KOO Or Creer erer KK ALOK KK KK eK KK eC OCC eK eK 
§ COOCPR-P-.R.COOR-PR. OR. OF. OF &— I ODMOMNOMNOMNOMNOMNOMNOM 
§ COOCR-PR-PR.OOR-P. OF. OR. OF &— I OMOMNOMOMNONOMOMNOM 
§ OOOR-P-P. OOPR-P-. OF. OF. OF EOMDOMOMOMOMNONOMOM 
§ OCOOR-PR-R. OOPR-F. OF. OF. OF} oF EE RCUIWMICUMICNUIWMI CUM CUM CUMnmannm 
§ OCOOP-P-P.OOPR-P. OF. OF. OF <I MNR NE MARNE NARA 
toocdenrnnrOOer KOer Or Or Alrerer Kr eeeKe ee ec ere 
§ OTOOCOCOCOOOOCOOCSOSSS Cf OMMELLLLLKLKLLALALL ER 
r-rr OTSTOOOCOCOCOCOCOSOSOO &§— I LKR OMMELLKLKLLAALALR 
eer OT OOOOCOOCOO ee R OMNMELLLLLLR 
-eLPLLLPLR. OST OOOCOCO F& IRR RRRR. KR. OMMRALLR 
(eee OVTOO CIR E RRR LLL. COMMER 
terrrrrnrrrrrereren OC Alber KK Keer errr KO 


DI edhe dad Rt Ret el Ri Rl Diet ed Dl Raed el Dd §'—NVTFTOOOCOCOSoCoOoOoCoooS 
OOO ekMMGPKLALLALLALLRR OH 1OOCOK NTOOOOCOOCOoOSoSo 
§'COOCCCO LK HMM.P-FA-_LALL KR §'coooooonK VN TOOCOoOoOoOoOo 
§ SOCOCOCOCOCOO kK Fv. AEE OE OCOOCOOOCOCOOCOK UT OOOoOo 
tt OOOCOCCOCOSCoOOOK MN. <i OOoooooooooooewvwwyo 
§tOOOOOOCOCOOSOCSSSCOSO— A It OOOCOCoOoCoCooocoooe- 


THE 


THE STATE O 


DRIVE STATE 


PC,RPINIT 
ONE BYTE PER DRIVE. 


RETURN 
UPON RETURN YOU MUST EXAMINE THE "DRVSTA’ TAB 
BE INDICATED AS FOLLOWS: 

DRVSTA 


THIS DOCUMENT IS THE USER'S GUIDE FOR THE RH/RP DRIVER. 
JSR 


TO INITIALIZE THE DRIVER: 
THE DRIVES THAT ARE ONLINE FOR TESTING. 


* WORST CASE PATTERN 


RH/RP DRIVER 
EIGHT BYTES; 


9.1 
9.2 
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9.3 


THE DRIVE TYPE IS DEFINED - 4 8 BYTE LONG TABLE TAGGED ‘DRVTYP’. 
R EACH DRIVE AND IS INDEXED BY THE 


THE TABLE CONTAINS ONE BYTE F 
ENTRIES ARE ENCODED AS FOLLOWS: 


uv 


0 
0 


<0 


DRIVE NUMBER. 


CALL: 


*DPB (DATA PARAMETER BLOCK) 
PNTDPB: 


DRVTYP 


JSR 

PNTDP’ 
RETURNI 
RETURN2 


-BYTE 


«WORD 


RO,RPO7 


0 


oo. Oo Go OOOCOoOO 


Na gt 


RPOP, 0 


NONEXIS TENT Drive” 


CONDITION 


NONEXISTENT DRIVE 
RPO? 


RPO7 
NOT AN RPO7 
THE "RMINIT® ROUTINE WILL DO A READIN PRESET AND WILL SET FMT16. 


AFTER THE DRIVER HAS BEEN INITIALIZED, IT IS CALLED USING THE 
FOLLOWING SEQUENCE. 


; MAKE THE CALL 


TERROR CONDITION 


VE_NUM 


Dd 
0 
COMMAND 

’ EL AND A17 AND Al6 
B 
s 
T 


EG NDE 

ACK ADDRESS OR 
G. INDEX 
L 
R 


R 
F 
ECT 
R 
R 
E 
Y ER 1 aie 
R a TABLE P 


So. 
oe ae 


=32 


0 
RE TH Se 

ON NER 
sTERS ARE NOT S 
RR 

09 

Y 


"no 


R 
F 
$ 
0 
U 
TER 
Ss 
T 
R 
C 
E 
$ 
T 
R 
s 


occu 


ZS SMM NOO Mm Pk SMO EW O 
COSHH ODO ORK LNIYN—-DOO~rrye--~ 


OD ars ee wane jie he exten tn ata 


I 
) 
Ss 
) 
T 
) 
) 
N 
A 
T 
I 
0 
) 
1 
0 
1 
i 


$s 
E 
E 
T 
1 
1 
B 
1 


m—n ti Pow 


I 
Sz 
7: 
be 
CA 


PE OF ERROR 


1 BER 
FSET VALUE OR FMT16, ECT, AND HCI 
MMA 


D COUNT (MUST BE NEG.) 
DR OR 


OINTER 
THE FIRST OF TWENTY 
F eee = DRIVER 


US/ERROR INDICATOR 
RROR RRED 


ONE 
AND B1T06-B1T03 


SEQ 0032 
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9.4.1 


9.5 


1T SHOULD BE NOTED THAT YOU MUST PROVIDE THE CODE TO DRIVE THE 


MOV #16. ,-(SP) 
JSR PC,RPTMR 


A SOFTWARE Ue dy pay Te Y 

BILITY YOU MUST SUP 

E IN THE FOLLOWING MANNER 

316. MILLISECONDS BETWEEN 
TICKS 


: CK 
CALL THE TIMER ROUTINE 


CLOCK AND THE ELAPSED TIME MUST BE IN MILLISECONDS. 


EXAMPLE = WRITE 1000. WORDS 


1$: 


2$: 


WRIDPB: 


WRIDPB: 


JSR RO,RPO7 
WRITDPB 

FR 1$ 

TST WRIDPB+16 
BEQ 4 

BM] ERROR 
-BYTE 5 

BYTE 0 

BYTE 161 
-BYTE 0 

-WORD -1000. 
-WORD wWRITBUF 
BYTE 3 

-BYTE 5 

-WORD 400 
-WORD ERRTBS 
-WORD 0 
ALTERNATE DPB SETUP 
«WORD 5 

-WORD WRITE 
-WORD -1000. 
-WORD WRTBUF 
BYTE 3,5 


[wORD 460,ERRTBS,O 


RH/RP REGISTERS 


MNEMONIC 


CALL THE DRIVER 
;DPB ADDRESS 
WAIT FOR QUEUE IF 


;WAIT FOR COMMAND ro COMPLETE 


ERROR OCCURRED 


DRIVE #5 
;WRITE COMMAND 


;WORD COUNT 
BUFFER ADDRESS 
; SECTOR 


ACK 
3CY ag 3 
;ERROR TABLE 
3ST ATUS/ERROR INDICATOR 


THIS SETUP eCereves 

EVERYTHING THE 

: ABOVE TABLE DID, BUT 
TIN A CLEANER FORMAT 


INDEX 


moO 


—— 
OLrooe 


THE "'RP TIMER’ ROUTINE 


SEQ 0033 
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RPLA 0 
RPDB 2 
RPMR1 4 
PDT 6 
RPSN 0 
RPOF $ 
RPDC & 
RPHR 36 
RPMR 40 
RPER 42 
RPEC] 44 
RPEC2 46 
RPBA 50* 
RPCS S2e 
* RH70 CONTROLLER REGISTERS 
9.6 COMMANDS PERFORMED BY THE DRIVER 
COMMAND CODE COMMAND TYPE 
SEEK 105 P 
RECAL IRATE 107 P 
DRIVE CLEAR 111 N 
RELEASE 113 N 
OF FSET 115 P 
RETURN ceuren 117 P 
READIN PRESET 121 N 
PACK ACKNOWLEDGE 123 N 
SEARCH 131 P 
7H stentre 141 S 
SET oe 143 S 
SELECT DRIV E 145 Ss 
WRITE CHECK DAT 151 D 
WRITE CHK HEADER & DATA 153 D 
WRITE DA 161 D 
WRITE HEADER & DATA 163 D 
READ DA 171 D 
READ HEADER & DATA 173 D 


eerie rae’ 

POSITIONING 

DATA TRANSFER 

SPECIAL PROVIDED BY THE DRIVER 
9.7 DPB STATUS/ERROR INDICATOR WORD 


THIS INDICATOR WILL INFORM THE USER OF THE ota OF THE REQUEST. 
ye 1S ACCOMPLISHED BY SETTING VARIES BITS OF THE INDICATOR TO 


vVove 


BIT NO. MEANING IF ON A ‘‘1"* 


15 ERROR OCCURRED 


SEQ 0034 


pe 
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1401) 


1341) 


12(2) 
11(2) 
10(2) (4) 


9(3) (4) 
8(4) 

7 

6(2) 
5(2) 


4(2) 
3(2) 


2 


NOTES FOR ABOVE 


~~ 

™ 

~~ 
" 


(3) 


vc 
no mm 
m 


A REQUEST FOR A FUNCTION 
TO BE PERFORMED ON A DRIVE THAT HAS AN 
UNLOAD REQUEST IN QUEUE. 


PERSISTENT UNSAFE CONDITION EXIST. 
UNCORRECTABLE PARITY ERROR OCCURRED 

FATAL PARITY ERROR. A MASSBUS CLEAR WAS 
PERFORMED, ALL QUEUES WERE EMPTIED, AND 
ALL DRVACT'S SET TO THE IDLE STATE 
SOFTWARE TIMEOUT OCCURRED ON THIS DRIVE 
SOFTWARE TIMEOUT OCCURRED ON ANOTHER DRIVE 
DONE 

ERROR OCCURRED DURING AN I/0 OPERATION 


ERROR OCCURRED DURING AN OPERATION 
OTHER THAN 1/0. 


CORRECTABLE UNSAFE CONDITION OCCURRED 


DRIVE ERROR OCCURRED THAT CAUSED AN 
AUTOMATIC *'RECALIBRATE’’ SEQUENCE 


PORT REQUEST TIMEOUT. THE DRIVER ae 
THE DRIVE BUT THE OPPOSITE PORT DID 
RELEASE THE DRIVE WITHIN 15. SECONDS. 


NON-EXISTENT DRIVE REQUESTED. USER MADE 
A REQUEST FOR A NON-EXISTENT DRIVE. 


REQUEST WASN'T PUT IN QUEUE. (RH/RP 
REGISTERS WERE NOT SAVED) 


REQUEST QUEUE HAS BEEN EMPTIED. THE DRIVER 
ISSUED A “DRIVE CLEAR TO THE DRIVE. 

NOTE: P REGISTERS, ARE SAVED S 

AS PER DPB+14 BEFORE THE “DRIVE CLEAR". 


REQUEST oveue ans RA tt EMPTIED. THE 
DRIV a ISSUED A MASSBUS INIT, ALL 
RH/RP REGISTERS FOR THE DRIVE WERE 
SAVED AS PER DPB+14 BEFORE THE INIT. 


a 
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9.8 


(4) = A_*'RECALIBRATE’’ SHOULD BE ISSUED 
BEFORE ANY OTHER COMMAND. 


ERROR CALLS MADE BY THE DRIVER. 
THERt ARE A FEW ERRORS THAT CAN OCCUR THAT CAN NOT BE INDICATED IN A DPB. 
WHEN THIS TYPE OF ERROR AS. pe rectep, a THE DRIVER the “Ehhon 


AN ERROR CALL OF THE FORM ‘ERROR N‘', WHERE ‘'N'’ IS T 
NUMBER AND THE ERROR WILL BE AN EMT’ INSTRUCTION. 


N TYPE © DATA AVAILABLE 
1 RH/RP_ INTERRUPT *R4= RPCS1°S ADDRESS 
OCCURRED (RHAS=0) 
2 UNEXPECTED ATTENTION Ri= DRIVE NUMBER 
OCCURRED R3= 
*R4= RPCS1'S ADDRESS 
R5= AS) 


RPERRS+6=RPMR2 


3 MASSBUS PARITY RD.ADR= ADDRESS OF REG. READ 
ERROR (MCPE=1) RD.WRD= WORD READ 
4 MASSBUS PARITY WRT .AD= nye OF REG. WRITTEN 
ERROR (PAR=1) WRT.WD= WORD WRITTEN 
RD.WRD= WORD READ BACK 
5 ADDRESS PLUG CHANGE R1= te NUMBER 
BIT SET (*OPE* ERROR) R3= A 


*R4= RPCSt S ADDRESS 
RS= (RMAS) 

RPERRS _=RPDS 
RPERRS*2=RPER1 
RPERRS+#4=RPER2 
RPERRS+6=RPMR2 


* THIS IS THE ACTUAL UNIBUS ADDRESS (176700) 


SEQ 0036 
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-REM a 
VERSION (CZRJO-A=0) 


1. THIS VERSION IS THE STARTING POINT FOR CX DIAGNOSTIC SUPPORT OF 
THE RPO7 DISK DRIVE. 9 ood vetitone 


SEQ 0037 


C 
H 


RJO 
STORY 


M 3 


~ | RPO7 PERF EXER MACRO V04.00 1-JAN-83 12:06:52 PAGE 5 
1 s*LAST REVISION 01-JAN-83 
a§ -TITLE czRIOAO RPO7 PERF EXER 
s*COPYRIGHT (C) 19 


:*DIGITAL EQUIPMENT come ge at tom 
80919 


: *CCLORADO SPGS., CO. 


{*PROGRAN BY MIKE LEAVITT 
ieTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 


3 *PACKAGE (MAINDEC*11=DZQAC=C5), 18-MAR-81 
87 | “SBTTL OPERATIONAL SWITCH SETTINGS 
ce SWITCH USE 
*@ eee aus (ee ee ee we Ss es ee eo te a8 os 
3* 15 HALT ON ERROR 
je 13 INHIBIT ERROR TYPEOQUTS 
* 10 BELL ON ERROR 
3* & INATaIT END OF PASS MESSAGES 
88 3* 7 DISPLAY ALL DATA COMPARE ERRORS 
89 it 4 DON'T CHANGE PARAMETERS (LOOP ON PRESENT VALUES) 
90 3* 5 A. PARTIAL REGISTER DISPLAY IF ERROR 
91 * B. NO ECC CORRECTION RESULTS DISPLAYED IF ERROR 
92 s* 4 A. DO NOT CHECK FOR MAXIMUM ae te COUNTS 
93 :* B. DO NOT DROP DRIVE AT END OF TEST 
94 * 3 A. DISPLAY ERROR SECTOR IF ‘DCK' ‘DTE", OR “WCF" ERROR 
3 7* B DISPLAY SECTOR IF "DCK' ERR U  RRECTABLE AFTER 
*f 
97 3* C. IF DATA COMPARE ERROR & SwO7 1, DISPLAY 
98 ie REMAINDER OF BUFFER 
99 je 2 A. DO NOT TYPE DRIVE STATUS AT PROGRAM START 
100 38 B. DO NOT TYPE PERFORMANCE REPORT AFTER SPECIFIED TIME 
101 3* 1 INHIBIT DATA COMPARE AFTER READ W/O "DCK" ERROR 
102 3* 0 READ ONLY MODE 
104 -SBTTL BASIC DEFINITIONS 
s*INITIAL ADDRESS OF THE STACK POINTER *** 1100 #e« 
001100 STACK = 1100 
104000 ERROR = EMT ::BASIC DEFINITION OF ERROR CALL 
000004 SCOPE = [OT 7;BASIC DEFINITION OF SCOPE CALL 
j {MISCELLANEOUS DEFINITIONS 
000011 2 ::CODE FOR HORIZONTAL TAB 
000012 tr 5 13 >:CODE FOR LINE FEED 
000015 CR = 15 3 CODE FOR CARRIAGE RETU 
000200 CRLF = 200 DE FOR CARRIAGE RETURNSL INE FEED 
177776 PS = 177776 S:PROCESSOR STATUS WORD 
177776 PSW=PS 
177774 STKLMT = 177774 s:STACK LIMIT REGISTER 
177772 PIRQ = 177772 3:PROGRAM INTERRUPT REQUEST REGISTER 
177570 DSWR = 177570 S:HARDWARE SWITCH REGISTER 
177570 DDISP = 177570 ;;HARDWARE DISPLAY REGISTER 
: *GENERAL PURPOSE REGISTER DEFINITIONS 
000000 RO = 20 sGENERAL REGISTER 


SEQ 0038 
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BASIC DEFINITIONS 


000340 


100000 


000002 
000001 


100000 


000400 


»@ 
uw 
HhHonnnnhannn 


:*PRIORI 
PRO 


v 
P*] 
nnnnnnnne 


mn 

<£ 

o 

o 
Honnnnnnnnnnnnnnnst 


Hhnnnnnn i- 


oo os  — D 


Y 


z1 3;GENERAL REGISTER 
6 3;GENERAL REGISTER 
% 3;GENERAL REGISTER 
%4 3;GENERAL REGISTER 
“5 7:GENERAL REGISTER 
%6 3:;GENERAL REGISTER 
47 :;GENERAL REGISTER 
%6 3;STACK POINTER 
%7 :3;PROGRAM COUNTER 
LEVEL DEFINITIONS 
0 s;PRIORITY LEVEL 0 
40 ;:PRIORITY LEVEL 1 
100 :;PRIORITY LEVEL é 
140 ::PRIORITY LEVEL 
200 s PRIORITY LEVEL 4 
240 s;PRIORITY LEVEL 5 
300 s;PRIORITY LEVEL 6 
340 s PRIORITY LEVEL 7 
REGISTER®’ SWITCH DEFINITIONS 
100000 
40000 
20000 
10000 
4000 
2000 
1000 
400 
200 
100 
40 
20 
10 
4 
2 
1 
DEFINITIONS (BITOO TO BIT15) 
100000 
40000 
20000 
10000 
4000 
2000 
1000 
400 


SEQ 0039 


4 
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BASIC DEFINITIONS 


000200 BITO07 = 200 
49h 81100 = 100 
00004 BITO = 40 
000020 BIT04 = 20 
000010 BIT03) = 10 
000004 BIT02 =4 
000002 BIT01 =2 
000001 BITOO = 1 
001000 BIT9=BIT09 
060400 B1T8=B1T08 
000200 BIT7=BIT07 
060100 B1T6=B1T06 
000940 BIT5=BIT05 
000020 BIT4=BIT04 
000010 BIT3=BIT03 
000004 BIT2=B1T02 
000002 BIT1=BIT01 
000001 BITO=B1T00 
>*BASIC "'CPU'’ TRAP VECTOR ADDRESSES 
000004 ERRVEC = 4 ME OUT AND OTHER ERRORS 
000010 RESVEC = 10 RESERVED AND ILLEGAL INSTRUCTIONS 
000014 TBITVEC = 14 BIT 
000014 TRIVEC = 14 + TRACE TRAP 
000014 BPTVEC = 14 3;BREAKPOINT TRAP (BPT 
000020 IOTVEC = 20 ¢ 3 INPU UT/OUTPUT TRAP OT) #eSCOPEee 
000024 PWRVEC = 24 POWER FAIL 
000030 EMTVEC = 30 tT EMULATOR TRAP (EMT) **ERROR®* 
000034 TRAPVEC = 34 :3'TRAP’' 
000060 TKVEC = 60 TTY KEYBOARD VECTOR 
000064 TPVEC = 64 s;TTY PRINTER VECTOR 
sen 000240 PIRQVEC = 240 ::PROGRAM INTERRUPT REQUEST VECTOR 
108 -SBTTL RPO7 REGISTERS 
H's CONTROL AND STATUS REGISTER 1 (RPCS1) 
110 000100 I€ = 100 INTERRUPT ENABLE (BIT #6) 
111 000200 RDY = 200 sREADY (BIT #7) 
112 000400 Al6 = 400 ‘HIGH ORDER BUS ADDRESS BIT (BIT #8) 
113 001000 Al7 = 1000 ‘HIGH ORDER BUS ADDRESS BIT (BIT #9) 
114 002000 PSeEL = $000 sPORT SELECT (BIT #10) 
115 020000 MCPE = 20000 sMASSBUSS PARITY ERROR (BIT #13) 
116 040000 TRE = 40000 RANSFER ERROR (BIT #14) 
44 4 7S = 100000 [SPECIAL CONDITION (BIT #15) 
119 WORD COUNT REGISTER (apuc) 
120 (EACH BIT IS CALLED BY BIT NUMBER) 
i22 BUS ADDRESS REGISTER (RPBA) 
123 ‘EACH BIT IS CALLED BY BIT NUMBER) 
\$3 CONTROL AND STATUS REGISTER 2 (RPCS2) 
127 000001 uS1 = 1 sUNIT SELECT (BIT #0) 
128 000002 uS2 z 2 UNIT SELECT (BIT #1) 
129 000004 USS = 4 UNIT SELECT (BIT #2) 


SEQ 0041 


JOAO RPO7 PERF EXER MACRO V04.00 1-JAN-83 12:06:52 PAGE 5-3 
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Det w2daefoo2adt 
@MZv-OF fA 225030 
S*ererarererterearertererers 
So 

oooo 

oOoooooo 


foo feo lo lololololololo) 
Oooooooooo°ooo 
PNT ENTER VT RK IT 


ole fololoflolelolololelelo) 


pollo lo le lole lo lolololo! a 


OT MINT NOP DOOM MUM TMOR. DKHOKMUMTMNOPR- DOOR NM TN 


(#00) 


: (EACH BIT IS CALLED BY BIT NUMBER) 


~-SBTTL RPO7 REGISTERS 
sCONTROL AND STATUS 1 REGISTER. 


DATA BUFFER REGISTER (RPDB) 


So 

o 

oooo 
aHNuTe Nu ST 


PROGRESS (BIT #13) 


RED (BIT #10) 


sDRIVE STATUS REGISTER (RPDS1) (#01) 
ERROR REGISTER #01 (RPER1) (#02) 


~ 
N 
a 
— 
_— 
@ 
~ ~ 
oa 
o ~ ® 
ive) ~ 
y = = 
> oo 
7 ie ~~ &--@ 
onmw nw —o~ 
z22c 2z=-—@s 
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—— Ow Burtt 
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nonnnonnnnn 
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SEQ 0042 
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oooooo 
Ooooo°co 
NTR 


DCO UMTNOPOCO- 
DWODAAO SOAP AOOOOO 


OL OS 


sATTENTION SUMMARY PSEUDO-REGISTER (RPAS) (#04) 


sMAINTENANCE REGISTER (RPMR1) (#03) 


Ct te te te te ee te 
On CUM sn oOor 
RZRRRRRre2ve2e 
et et 
me ag Oe at Oe ng Oa Oe 
ODOOOOO® 
ee ee ee ee ee ee ee ee 


OK CUM TNO. 


3 a a a 
VWYVVYVYUUUYUYU 


AAaARAaRaaaa 


oo 
oooo°o 
HN TR Ve 


aqdqadadadaaae 


sDESIRED SECTOR/TRACK ADDRESS REGISTER (RPDA) (#05) 


sDRIVE TYPE REGISTER (RPDT) (#06) 


NM TA OR. CO 
ooooocoeo 
mcucucucucutucy 


D (BIT #11) 


H—NUM TNO DO 


ee ee 
eee CK ARO 


OMOOOOOOOmn—~ww 


f—Tom Yall) -)-)-)-!-} 4 4 
fe Fe Pere resererserertererters 


eNTRK NTR NIN 
nnnnnnnnnnnun 


On CUM TN OR. 0c 


Cooooceooccoedc rad 
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ooonK-wTOOoooooo 
oooooee wsrOoooo 
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CooooooooooNn yo 
Ooooooocooooocoe 


;LOOK*AHEAD REGISTER (RPLA) (#07) 


tl te il 
ee ee ee 1 oe 
Or-ORnn—— 
ZRVaeee2ee2e 


OM VUMTMOR DOO UM TINOR. OOO CUMIN 
OE NININNNININ NINE 
Munucucucucucucucucucucucucucucucueueueuauaucucucucusunununun 


INHIBIT (BIT #11) 


T (BIT #10) 


;SERIAL NUMBER REGIS i (RPSN) (#10) 


GIST 
;(EACH IS CALLED BY BIT NUMSER) 


sOFFSET REGISTER (RPOF) (#11) 


268 
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244 

245 sDESIRED CYLINDER ADDRESS (RPDC) (#12) 

ses : (EACH BIT IS CALLED BY BIT NUMBER) 

248 sCURRENT CYLINDER ADDRESS (RPCC) (#13) 

$e8 : (EACH BIT IS CALLED BY BIT NUMBER) 

$2) ;RPO7 ERROR REGISTER #2 (RPER2) (#14) 

255 000400 WRYUNS = 400 ;WRITE READY UNSAFE (BIT 8) 
254 001000 WOR = 1000 sWRITE OVERRUN (BIT 9) 

255 002000 RWU1 = 2000 SREAD/WRITE UNSAFE #1 (BIT 10) 
256 004900 RWU = 4000 sREAD/WRITE UNSAFE 4 (BIT 11) 
257 010000 RWU = 10000 SREAD/WRITE UNSAFE #3 (BIT 12) 
$26 100000 PGE = 100000 :PROGRAM ERROR (BIT 15) 

sen :RPO7 ERROR REGISTER #3 (RPER3) (#15) 

262 000001 DGE = 1 ;DIAGNOSTIC ERROR (BIT 0) 

263 000002 TPE = 2 S TEMPERATURE WARNING ERROR(BIT 1) 
264 000004 AIR = 4 SAIR SYSTEM WARNING ERROR (BIT 2) 
265 000010 DPE = 10 SDATA PARITY ERRUm (BIT 3) 

266 000020 BPE = 20 sBUFFER PARITY ERROR (BIT 4) 
267 000040 DCU = 40 7DC UNSAFE (BI 

268 000100 1XU = 100 s INDEX UNSAFE (BIT 6) 

269 000200 DvC = 200 sDEVICE CHECK (BIT 7) 

270 000400 TCF = 400 STACH CALIBRATION FAILURE (BIT 8) 
271 901000 LCE = 1000 SLOSS OF CYLINDER ERROR (BIT 9) 
272 002000 LBC = 2000 SLOSS OF BIT CLOCK (BIT 10) 
273 040000 SKI = 40000 sSEEK INCOMPLETE (BIT 14) 
ore 100000 BSE = 100000 ‘BAD SECTOR ERROR (BIT 15) 
276 SECC POSITION REGISTER (RPEC1) (#16) 
oth : (EACH BIT IS CALLED BY BIT NUMBER) 
279 SECC PATTERN REGISTER (RPEC2) (#17) 
$60 [(EACH BIT IS CALLED BY BIT NUMBER) 
oB¢ .SBTTL RPO7 DRIVER COMMANDS 
284 000101 NOOP = 101 ;NO_OPERATION 

285 000105 SEEK = 105 ; 
286 000107 RECAL. = 107 ;RECALIBRATE 

287 000111 DRVCLR = 111 sDRIVE CLEAR 

288 000113 ELSE = 113 ; RELEASE 
29 000117 C = 117 sRETURN TO CENTER LINE 

29 B00 READIN = \¢! ;READ IN PRESET 

$36 000131 SEARCH = 131 ; SEARCH 

000151 CKD = 151 WRITE CHECK DATA 

301 000153 CKHD = 153 sWRITE CHECK HEADER & DATA 

308 000161 WRIDAT = 161 sWRITE DATA 

0 000163 FMTRK = 163 FORMAT TRACK 

04 000171 RDDAT = 171 ;READ DATA 

4 000173 RDHD = 173 ;READ HEADER & DATA 

07 176700 ABASE = 176700 

308 000254 AVECT1 = 254 


SEQ 0043 
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309 


000174 000000 


G 4 


DISPREG: .WORD ::SOFTWARE DISPLAY REGISTER 
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TRAP CATCHER : 
1 .SBTTL TRAP CATCHER 
600000 -=0 
s*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ''.#2,HALT" 
*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPT 
 eLOCATION 9 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
000174 =174 5 
0 


000176 000000 


000200 000137 
000204 000137 


O~nwr 


000210 
000046 031754 


000052 040000 
000210 


001100 


—~— 
—-O°o 


001100 
000024 000200 


000044 001100 
001100 


001100 000000 


001106 014234 
001110 014234 
001112 000032 

001114 


—— 
LN 


SWREG: .WORD 

-SBTTL STARTING ADDRESS(ES) 
003532 JMP @aSTARTI 3;JUMP TO STARTING ADDRESS OF PROGRAM 
003522 JMP @aSTART CHANGE THE RHXX/RPO7 ADDRESS 

~SBTTL ACT11 HOOKS 


3SOFTWARE SWITCH REGISTER 


WERARARABRABRASZALALESLEARRASARERERERLARA EERE SERRE RRR RRR RARER RRR ARR RAS 


[HOOKS REQUIRED BY ACT11 


SyPC=. SAVE PC 

SENDAD :21)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
“wORD 40000 s:2)SET LOC. 532 TO 40000 

* =$SVPC RESTORE P 


-=1100 
-SBTTL APT PARAMETER BLOCK 


PeeReReReeeaReeeeeeeeateeeeeeeeeeeKeeKeKeKeeeeeAeAeeeeeneeAeeee 
iS LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
PRRARRRRA KAKA TA eH TATLA eA eee KAKA eA eA Ae eAeeeeeeeeeeneteneeeeeene 
~$X=. 5; SAVE eres LOCATION 
=24 3;SET POWER FAIL TO POINT TO START OF PROGRAM 
200 sipot APT START UP 


=44 0 

SAPTHDR ::POINT TO APT HEADER 

.=.$X 3 :RESET LOCATION COUNTER 
PL eeeeaeereeeaaeeeeeeeeeeeeeeeeeAeeeKeateRekeKeKeeenKeneKeneenenes 
[SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
SINTERFACE SPEC. 


SAPTHD: 


SHIBTS: .WORD 0 ::TWO HIGH BITS OF 18 BIT HAILBOX ADDR. 

MBADR: .WORD $MAIL ;:ADDRESS OF APT MAILBOX BITS 0-15) 

STSTM: . WORD 6300. :;RUN TIM OF LONGEST fest. 

SPASTM: .WORD 6300. ::RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

SUNITM: .WORD 6300. jj ADDIT LONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 
"WORD $SETEND-SMAIL/ LENGTH MAILBOX-£ TABLE (WORDS) 

TAB. XY=. SCMTAGSTARING ADDRES 


H 
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COMMON TAGS 


0 -SBTTL COMMON TAGS 


;eeeeeeeeeerereerererrererereeeeneneeneeeteneeeteeeeenereeteeees 


TETHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM. 


001114 eree SCMTAG -ieamea START OF COMMON TAGS 

001114 000000 -WORD O 

001116 000 STSTNM: .BYTE 0 Z: CONTAINS THE TEST NUMBER 

001117 000 SERFLG: .BYTE 0 [CONTAINS ERROR FLAG 

901120 000000 ICNT: .WORD 0 S:CONTAINS SUBTEST ITERATION COUNT 

001122 000900 SLPADR: . 0 S:CONTAINS SCOPE LOOP ESS 

001124 000000 SLPERR: .WORD 0 S:CONTAINS SCOPE RETURN FOR ERRORS 

001126 0 SERTTL: .WORD 0 [CONTAINS TOTAL ERRORS DETECTED 

001130 SITEMB: .BYTE 0 S: CONTAINS ITEM CONTROL BYT 

001131 SERMAX: .BYTE 1 S: CONTAINS MAX, ERRORS PER TEST 

001132 000000 SERRPC: .WORD 0 S: CONTAINS PC OF LAST ERROR INSTRUCTION 

001134 000000 SGDADR: .WORD 0 +: CONTAINS ADDRESS OF ‘GOOD’ DAT 

001136 000000 SBDADR: . 0 S: CONTAINS ADDRESS OF "BAD" DATA. 

001140 000000 $GDDAT: .WORD 0 : | CONTAINS "GOOD" DATA 

001142 000000 $8D -WORD O ::CONTAINS ‘BAD DATA 

001144 000000 “WORD 0 S:RESERVED=-NOT TO BE USED 

001146 000000 eWORD O 

001150 000 SAUTOB: .BYTE 0 :;AUTOMATIC MODE INDICATOR 

001151 000 SINTAG: .BYTE 0 S: INTERRUPT MODE INDICATOR 

001152 000000 “WORD 0 

001154 177570 SWR: “WORD DSWR ZEADDRESS OF SWITCH REGISTER 

001156 177570 DISPLAY: .WORD DDISP i SADDRESS OF DISPLAY REGISTER 

001160 177560 $TKS: 177560 Y KBD STAT Us 

001162 177562 $1KB: 177562 etry KBD BUFFER 

001164 177564 $TPS: 177564 ziTTy PRINTER STATUS REG. ADDRESS 

001166 177566 $TPB: 177566 [TTY PRINTER BUFFER REG. A 

001170 000 $NULL: .BYTE 0 TICONTAINS NULL CHARACTER FOR *FieLS 

001171 002 SFILLS: .BYTE 2 [CONTAINS # OF FILLER GHARACTERS REQUIRED 

001172 012 SFILLC: .BYTE 12 S3INSERT FILL CHARS. AFTER A FEED 

001173 000 STPrLG: .BYTE 0 if TERMINAL AVAILABLE’ FLAG (Bh teb7oe O=YES) 

001174 000000 $TMPO: WORD 0 TIUSER DEFINED 

001176 207 377 377 $BELL: .ASCIZ >. > cect 7;CODE A ortt 

001202 077 SQUES: “ASCII + QUESTION 

001203 015 SCRLF: <ASCII £i5> i: CARRIAGE RETURN 

001204 012 060 SLF: SASCIZ <12> TZ:LINE FEED 

. SL eeeereeareevererieererereteneenentnaeAnAnee aaneeeeenaneeeneeee 

*SBTTL APT MAILBOX-ETABLE 
s_eteeeeeeaeenereeererterteeteeenaKKeeKeneneReneaRreneeneeeeaeeee 
" EVEN 

001206 SMAIL: y;APT MAILBOX 

001206 000000 SMSGTY: .WORD AMSGTY 2 SME SSAGE TYPE CODE 

001210 000000 SFATAL: .WORD AFATAL ATAL ERROR NUMBER 

001212 000000 STESTN: .WORD ATESTN cite T NUMBER 

001214 000000 SS: .W APAS 3 PASS COUN 

001216 000000 SDEVCT: . ADEVCT ::DEVICE COUNT 

001220 000000 we AUNIT 3:1/0 UNIT NUMBER 

001222 000000 SMSGAD: .WORD AMSGAD ::MESSAGE ADDRESS 

001224 000000 SMSGLG: .WORD AMSGLG ;;MESSAGE LENGTH 

001226 SETABLE: SS APT ENVIRONMENT TABLE 
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001226 000 SENV: .BYTE AENV 
001227 000 SENVM: .BYTE AENVM 
001230 000000 SSWREG: .WORD ASWREG 
001232 000000 USWR: .WORD AUSWR 
001234 000000 SCPUOP: .WORD ACPUOP 

*® 

te 

3;* 

5@ 

;* 

*® 
001236 000 $MAMS1: .BYTE AMAMS1 
001237 900 SMTYP1: .BYTE AMTYP1 

*@ 

te 

ge 

*® 
001240 000000 $MADR1: .WORD AMADR1 

** 
001242 000 $MAMS2: .BYTE AMAMS2 
001243 000 SMTYP2: .BYTE AMTYP2 
001244 000000 MAD ~WORD AMADR 
001246 000 SMAMS3: .BYTE AMAMS 
001247 000 SMTYP3: .BYTE AMTYP3 
001250 000000 SMADR3: .WORD AMADR3 
001252 000 $MAMS4: .BYTE AMAMS4 
001253 000 SMTYP4: .BYTE AMTYP4 
001254 000000 SMADR4: .WORD AMADR4 
001256 000254 $VECT1: .WORD AVECT1 
001260 000000 $VECT2: .WORD  AVECT2 
001262 176700 $BASE: .WORD ABASE 
001264 000000 SDEVM: .WORD ADEVM 
001266 000000 $CDW1: .WORD ACDW1 
001270 000000 $CDW2: .WORD  ACDW2 
001272 SETEND: 


SEQ 0047 


2,1 {1720s =03,11/40=04,11/45=05 


73MEM.TYPE ,BLK&3 
33MEM.LAST ADDRESS,BLK#3 
scuhen 5 a ted -S.BYTE 
M.TYPE,BLK 

i iMEM. LAST ADDRESS, BLK 
se INT ERRUPT VECTORA1 BUS PRIORITY#1 

S INTERRUPT VECTOR#2BUS PRIORITY#2 
::BASE ADDRESS OF EQUIPMENT UNDER TEST 


:;CONTROLLER DESCRIPTION WORDA1 
3;CONTROLLER DESCRIPTION WORD#2 
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-SBTTL USER DEFINED TAGS 


001272 176700 SRPADR: .WORD 176700 inoy" ADDRESS oF RHXX/RPO7 REGISTERS 
001274 900254 SRPVEC: .WORD 254 :RPO VECTOR A DRESS 
001276 12g 40 SLKCSR: .WORD 172540 apt a STATUS REGISTER 
001300 172542 SLKCSB: .WORD 172542 :ADDR oF KWil-P COUNTER BUFFER 
001302 000104 SLPVEC: :WORD 104 “ADDR OF KW11-P VECTOR 
001304 177546 SLKS:  .WORD 177546 ; ADDR OF KW1leL STATUS REGISTER 
001306 000100 SLLVEC: .WORD 100 ADDR OF KWil-L VECTOR 
091310 000000 CLKFLG: .WORD 0 INO CLOCK= 0, BocLOck= 1 OR L=CLOCK= 1 
001312 000074 HERTZ: .WORD 60. 3O0HZ SYSTEMS 60. a Sonz” SYSTEMS 50. 
001314 000000 STATIN: .WORD 0 :" TYPE STATISTICS INDICATOR 
001220 DRIVE =SUNIT SDRIVE # STORAGE: ERRORS 1-5 & 10 
‘SAME AS USED IN APT 
001316 000000 ATTN: .WORD 0 SATIN REG STORAGE: ERRORS 1-5 & 10 
001320 000000 DRVNO: .WORD 0 [DRIVE # STORAGE FOR PRINTOUT 
001322 000000 MASK: .WORD 0 TERROR RETRY REGISTER MASK 
001324 000 000 RETRY: .BYTE 0,0 TERROR RETRY LIMIT IN THE LOWER BYTE 
:RETRY COUNT IN THE UPPE2 BYTE 
001326 000003 FAIRNS: .WORD 3 [MAXIMUM TIME IN 
001330 000000 LSTAD: .WORD 0 [STORE LAST MEMORY ADDRESS HERE 
001332 000000 CHGADR: .WORD 0 ; CHANGE RHXX/RPO7 UNIBUS ADDRESS FLAG 
001334 000000 CFLAG: .W 0 = "CONTROL C* FLAG 
001336 000000 BADSEC: . 0 *BAD TRACK/SECTOR FLAG 
001340 000000 HOU “WwORD 0 ZHOUR COUNT STORED HER 
001342 000000 MINUTE: . 0 :MINUTE'S COUNT STORED HERE 
001344 000000 SECOND: .WORD 0 :SECOND'S COUNT STORED HERE 
001346 000000 ONESEC: . 0 STIMER ROUTINE COUNTER (FOR ONE SECOND) 
001350 177777 ZROIND: .WORD -=1 :ZERO INDICATOR FOR THE DATA COMPARE ROUTINE 
001352 000 FRSTER: .BYTE 0 SDATA COMPARE ERROR FLAG 
[IF > 0, PROCESS ING *DCKER" OR CAN'T MATCH PATTERN 
Z1F_< 0, MISCOMPARSION FOUND 
001353 000 .BYTE 0 seam: N OR CA CAN'T MATCH PATTERN FLAG 
001354 000000 SAVPOS: .WORD 0 [SAVE WORD P OSI TION” IN COMPARE ROUTINE 
001356 000000 SAVER]: .WORD 0 ?SAVE R1 HERE 
001360 000000 SAVERS: .W 0 [SAVE P5 HERE 
001362 000000 ERCTR: . 0» NUMBER OF ERRORS 
64 000000 LIMIT: .WORD 0 ‘DISPLAY LIMIT 
001366 000000 CMCNT: .W 0 SWORD C uN T 
001370 000000 CMCYL: .WORD 0 [CYLINDER ADDRESS 
0137? 000 CMSEC: .BY 0 [SECTOR ADDRESS 
00177? 000 CMTRK: .BYTE 0 : TRACK ADDRESS 
7% 000000 WRDOPOS: .W 0 i WORD POSITION IN COMPARE ROUTINE 
001376 000000 ECBIT: . 0 TERROR BURST BIT OFFSET 
001400 000000 ECSEC: WORD 0 SERROR BURST WORD OFFSET (RELATIVE, TO SECTOR) 
001402 000000 ECMSKO: .WORD 0 [CORRECTION MASK FOR FIRST ERROR WORD 
001404 000000 ECMSK1: .WORD 0 :COR RECTION MASK FOR SECOND ERROR WORD 
001406 000000 ECWRD: .W 0 :LOC ATION OF FIRST ERROR WOR 
001410 000000 GD: .WORD 0 OOD (CORRECTED) DATA, FIRST WORD 
001412 000 . ECBADO: .WORD 0 AD (RECEIVED) DATA, FIRST WORD 
001414 000000 ECWRD1: .WORD 0 tocar iON OF SECOND ERROR WORD 
001416 00 ECGD1: . 0 [GOOD (CORRECTED) DATA, SECOND WORD 
001420 000000 ECBADi: .WwORD 0 [BAD (RECEIVED) DATA, 0g WORD 
001422 000000 TSTANY: .WORD 0 [TEST ON FE CYLINDER ONLY ~ TEST ANYWHERE ON MEDIA =1 
001424 000000 RDONLY: .WORD 0 TREAD/WRITE MODE=0, READ MODE ONLY= 
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001426 900000 DRVPAR: .WORD 0 sWHEN DRIVES ARE BEING ASSIGNED, 
Peto INGE CHANGE DRIVE PARAMETERS 
001430 000000 XXDP: WORD 0 [THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 
‘THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE 
:*XXDP" DEVICE CODE FOR THE RPO7. 
.LIST BEX 
00143 200 REV: eASCII <CRLFD> 
00143 103 132 122 [ASCII] /CZRJO/ ;PROGRAM ID 
001436 Me 117 
001440 05 SASCII /=/ 
001441 101 TASCII = /A/ sREVISION LEVEL 
00144 955 “ASCII /=/ 
00144 060 000 “ASCIZ /0/ sPATCH LEVEL 
.NLIST BEX 
EVEN 
.SBTTL COMMON PARAMETERS 
: THE FOLLOWING TWO LOCATIONS CONTAIN THE SOFT ERROR RATE WORDS USED TO 
: DETERMINE END OF PASS WHEN THE PROGRAM IS DATA BIASED. 
s1T WILL ag APPROXIMATELY 2.4 PASSES TO REACH THE SOFT ERROR RATE OF 
31 ERROR IN 10°10 BIT 5 k 16°B WORDS) READ OR 10. PASSES TO REACH THE 90% 
[CONFIDENCE LEVEL OF 4.128 x ho" ' BITS (2.58 X 10°9 WORDS) READ. 
SENDCON= LSB AND ENDCON¢2= M 
001446 142200 ENDCON: .WORD 142200 ;(2.58 X 10°8 WORDS) OR (4.128 X 10°9 BITS) READ 
001450 007540 “WORD 007540 
sTHE FOLLOWING TWO, LOCATIONS CONTAIN THE SEEK ERROR RATE WORDS USED TO 
: DETERMINE END OF PASS WHEN THE PROGRAM IS SEEK BIASED 
[IT WILL TAKE 1 PASS TO REACH A SEEK ERROR RATE OF 1 ERROR IN 106 SEEKS OR 3 
*PASSES TO REACH A 90% CONF IDENCE LEVEL OF 3 X 10°6 SEEK 
SENDSEK= LSB AND ENDSEK+2= M 
901452 041100 ENDSEK: .WORD 041100 :(1 xX 10°6 SEEKS) 
001454 000017 "WORD 000017 
001456 000062 MAXER: .WORD 50. ;MAXIMUM ERRORS ALLOWED PER DRIVE 
001460 000004 CMPLMT: .WORD 4 ‘NUMBER OF COMPARE ERRORS TYPED OUT 
001462 000017 000017 CMPTIM: .WORD 15.,15. :FIRST WORD IS THE INTERVAL BETWEEN DATA COMPARES. 
:(IN MINUTES). SECOND WORD IS THE INTERVAL COUNTER. 
[IF FIRST WORD JS ZERO THEN DATA COMPARE IS ALWAYS ON. 
STHIS TIMER HAS NO AFFECT IF SwO1=1. 
001466 031000 WRDCNT: .WORD 12800. MAXIMUM WORD COUNT (6-12 
001470 000000 000000 INTRVL: .WORD 0,0 [FIRST WORD IS THE PERFORMANCE TYPEOUT INTERVAL 
[CIN MINUTES). SECOND WORD IS THE INTERVAL COUNTER. 
IF FIRS WOR I z RO, NO REPOR IS TYPED. 
001474 000001 PASSES: .WORD 1 : NUMBER SSES TO END OF TEST CTHIS PARAMETER IS 
:NOT USED wien PROGRAM IS OPERATING IN AUTO RUN(CHAIN) 
001476 000000 PATTERN:.WORD 0 [IF €Q 0,RANDOMLY SELECT DATA PATTERN 
ZIF NOT EQ 0,SELECT ONE SET OF PATTERN 
i POINTED BY THE 
001500 000000 RANDWC: .WORD 0 £Q TO 0 GENERATE A RANDOM WORD COUNT 


iFOR THE OPERAT 
‘IF NOT EQ TO 0! We THE VALUE IN *WRDCNT® FOR 


L 4 
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COMMON PARAMETERS 


001502 000003 RATIO: WORD 


001504 000001 ENDING: .WORD 


001506 000001 WRTCHK: .WORD 


001510 000000 RANDOM: .WORD 


COUNT 
3 TE eae Speyer 0-7) 


READ/WRITE) 


1 


NT. ¢ 6 S$ 
DO AN ate tena WRITE 
ACH WRITE COMMAN 
CT WRITE CHECK COMMANDS 


C 
“E 
E 
NOT cour see rw eae 
NOT EQU 0, SEQUENTIAL 
BLOCK ADDRESS 


1 


L 
0 


ee Se Se Se Se Se Se See Se SeSeSseSe See Gets Ge 


BMomMmaZamnaz 
MoOoOoOXKOToOTO 


SELECT DA 


~SBTTL VALUES FOR FIRST OPERATION 


1512 000010 
1514 


BEGPAT: .WORD 
000004 


BEGCOD: .WORD 


001516 000400 BEGWC: .WORD 
-SBTTL TABLES, 


LIST OF DRIVES 
«WORD 


001520 000000 ORDERQ: .WOR 
001522 000000 » WORD 
001524 000000 «WORD 
001526 000000 WORD 
001530 000000 «WORD 
091532 000000 - WORD 
901534 000000 . 
001536 000000 » WORD 
001540 000000 » WORD 
007542 000000 ASNLST: .WORD 
sADDRESSES OF D 
001544 000000 DDRVS: .WORD 
001546 000000 . 
001550 000000 - WORD 
001552 000000 oW 
001554 000000 «WORD 


7 OR 
001560 000000 WORD 


8. sSTARTING PATTERN CODE CRANGE 1 = 15.) 
& ;STARTING COMMAND CODE CRANGE 0- 5) 
WRITE CHECK DATA (*WCKD') 
WRITE CHECK HEADER & DATA ("WCKHD* = NOT USED) 
WRITE DATA (*WRIDAT') 
FORMAT TRACK A | al - NOT USED) 
READ DATA (*RDDAT') 
READ HEADER & DATA (‘RDH 
256. TARTING WRD CNT CRANGE 6 - URDCNT] 


CONSTANTS, AND VARIABLE LOCATIONS 
PERFORMING COMMANDS 


30 
31 
rT 
3 
34 
35 
7S 


sA BIT SET IS AN ASSIGNED DRIVE 
RIVES TO BE DROPPED 


ooooooO~ Oo COOOCOOCCOoOoOoO 


SEQ 0050 
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TABLES, CONSTANTS, AND VARIABLE LOCATIONS 
01562 00000 «WORD 
Bolsee 0000 WORD 6 
ADDRESSES OF NEWLY ASSIGNED DRIVES 
001566 000000 NEWUNT: .WORD 0 
901570 900000 “WORD 0 
001572 000000 “Wd 0 
001574 000000 0 
001576 000000 “WORD 0 
001600 000000 : 0 
901602 000000 “WORD 0 
001604 000000 “WORD 0 
001606 000900 “WORD 0 
;LIST OF DRIVES WAITING FOR BUFFERS/PARAMETERS 
001610 000000 AVAIL: .WORD 0 
001612 000900 “WORD 0 
001614 000000 “WORD 0 
001616 000000 ‘ 0 
001620 000000 “WORD 0 
001622 000000 “W 0 
001624 000000 “WORD 0 
001626 000000 “WORD 0 
001630 000000 “WORD 0 
;LIST OF DRIVES WAITING FOR BUFFERS 
001632 000000 WAIT:  .WORD 0 
001634 000000 “WORD 0 
001636 000000 “WORD 0 
001640 000000 ; 0 
001642 000000 “WORD 0 
001644 000000 a 0 
001646 000000 ; 0 
001650 000000 “WORD 0 
001652 000000 “WORD 0 
;BUFFER ALLOCATION TABLE ENTRY COUNT 
001654 000000 BUFTBL: .WORD 0 
001656 000000 000000 “WORD 0,0 
001662 000000 000000 “WORD 0.0 
000000 000000 “WORD 0.0 
091672 000000 000000 “WORD 0.0 
90 000000 000000 “WORD 0.0 
001702 000000 000000 “WORD 0.0 
001706 000000 000000 “WORD 0.0 
001712 000000 000000 “WORD 0.0 
001716 000000 000009 WORD 0.0 
001722 000000 000000 “WORD 0.0 
00 000000 000000 “WORD 0.0 
001732 060000 000000 “WORD 0.0 
001736 000000 000000 “WORD 0.0 
001742 000000 000000 “WORD 0.0 
001746 000000 000000 “WORD 0.0 
001752 000000 0 Wd 0 
YORD 070 


00 00000 ORD 
001756 000000 000000 - WORD 
001762 000000 000000 ORD 


4 


ro , N 4 
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TABLES, CONSTANTS, AND VARIABLE LOCATIO 
0017 00000 .WORD 0 
titty 00000 .WOR 0:9 
teas 90000 90000 WOR ,0 
002002 00000 0000 .WORD 0.0 
00 908 000000 000000 . WORD 0.0 
00201 900009 00000 .WOR 0 
00 O16 00000 0900000 “WORD 0.0 
002022 000000 0609000 WO 0.0 
Oo20e6 000000 000900 WO 0,0 
002032 000000 000600 WO 0,0 
002056 000000 000000 y 0,0 
90204 000000 000000 .WORD 0,0 
002046 000900 9000000 W 0,0 
002052 000 000000 ~WORD 0,0 
DRIVE PARAMETER BLOCK (DPB) oree te TABLE 
002056 046234 .WORD  DRIVEO ;ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 0 
002060 046476 .WORD DRIVE] ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 1 
002062 046740 . WORD DRIVE? SADDRESS OF THE PARAMETER BLOCK FOR DRIVE 2 
002064 047202 » WORD DRIVE sADDRESS OF THE PARAMETER BLOCK FOR DRIVE 5 
002066 047444 ;WORD DR'VE4 ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 4 
002070 047706 “WORD DRIVES ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 5 
002072 050150 ; WORD DRI /EG SADDRESS OF THE PARAMETER BLOCK FUR DRIVE 6 
002074 050412 -WORD DRIVE? ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 7 
sDRIVER COMMAND CONTROL TABLE (USED . e DRIVER) 
002076 151 COM’BL: .BYTE  WCKD WRITE CHECK DAT 
00207 377 : -1 WRITE CHECK MEADER AND DATA (NOT USED) 
602100 161 <BYTE  WRTDAT TUR ITE DATA 
002101 377 BYTE -1 sFORMAT TRACK (NOT SED) 
002102 171 ;BYTE RDDAT READ DATA 
002103 173 BYTE RDHD ;READ HEADER AND DATA 
sFUNCTION(COMMAND) CODE CONTROL TABLE 
092104 004 OPTBL: .BYTE 4 7 SEEK 
002105 006 .BYTE 6 SRECAL 
002106 010 .BYTE 10 ZDRIVE CLEAR 
002107 012 .BYTE 12 R 
002110 016 -BYTE 16 ‘RETURN 19 CENTERLINE 
002111 020 -BYTE 20 SREADIN PRESET 
002118 022 “BYTE 22 ;PACK ACKNOWLEDGE 
00211 030 BYTE 30 ARCH 
002114 050 “BYTE 50 tURITE MCHECK DAT 
902115 052 -BYTE 52 WRITE CHECK PEADER AND DATA 
002116 06 BYTE 60 E DATA 
002117 062 BYTE 62 FORMAT _— 
002120 979 “BYTE 70 TREAD DAT 
002121 re BYTE 72 READ DEADER AND DATA 
002122 37 .BYTE = : TERMINATOR 
EVEN 
:MESSAGE CONTROL TABLE FOR "OPTBL' TABLE 
002124 123 105 105 MNIBL: .ASCIZ /SEEK / 
0021 122 105 103 “ASCIZ /RECAL / 
002144 104 122 126 SASCIZ /DRVCLR / 
002154 122 105 114 SASCIZ /RELSE / 
002164 12 124 103 “ASCIZ. /RIC / 


SEQ 0053 
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TABLES, CONSTANTS, AND VARIABLE LOCATIONS 


-STANDARD DATA PATTERN POINTER TABLE 
STNDAT: .WORD DATAQ ;STANDARD DATA 


Oocele 002360 OR 3 PATTERN 0 
002316 002420 -WOR DATA1 ;STANDARD DATA PATTERN 1 
OO Saso 002460 «WORD DATA STANDARD DATA PATTERN § 
002322 002520 «WORD DATA STANDARD DAT TERN 
00 ; 4 002560 -WOR DATAS ;STANDARD DATA PATTERN 4 
002326 002620 WORD DATAS ;STANDARD DATA PATTERN 5 
00 ; 0 002660 «WORD DATA6 [STANDARD DATA PATTERN 6 
002332 002720 «WORD DATA? ;STANDARD DATA PATTERN 7 
002334 ith 4 WORD DATA8 ;STANDARD DATA PATTERN 8 
002336 005020 «WORD DATA9 ;STANDARD DATA PATTERN 9 
tt ae Bp aes8 -WORD DATAIO ;STANDARD DATA PATTERN 10 
002342 003120 «WORD DATA11 ;STANDARD DATA PATTERN 11 
002544 003160 WORD patars STANDARD DATA PATTERN 12 
002346 003220 WORD DATA13 ;STANDARD DATA PATTERN 13 
002350 003260 RD DATA14 ;STANDARD DATA PATTERN 14 
002352 003320 WORD DATA15 ;STANDARD DATA PATTERN 15 
002354 002560 WORD ZEROS ;ALL 0°S PATTERN 
002356 005262 «WORD ONES sALL 1°S PATTERN 
002360 ZEROS: 
002360 000000 DATAO: .WORD 0 sALL O'S DATA PATTERN 
002362 000000 «WORD 0 
002364 000000 -WORD 0 
002366 000000 . 0 
002370 000000 -WORD 0 
002372 000000 oW 0 
002374 000000 WORD 0 
002376 000000 WORD 0 
002400 000000 WORD 0 
002402 000000 WORD 0 
002404 000000 WORD 0 
002406 000000 WORD 0 
002410 000000 WORD 0 
002412 000000 -WORD 0 
002414 000000 -WORD 0 

000000 WORD 0 
002420 000001 DATA1: .WORD 000001 ;STANDARD PATTERN 1 
002422 000003 WORD 000003 
002424 000007 -WORD 000007 
002426 00017 «WORD tte 
092430 000037 » WORD 00037 
902432 000077 ~ WORD ad 
002434 000177 - WORD 00177 
002436 000377 -WOR 000377 
002440 000777 WORD 000777 
002442 001777 -WORD 001777 
002444 003777 -WORD 003777 
062446 007777 WORD 007777 
002450 017777 » WORD orere 
002452 037777 - WORD 37777 
002454 077777 -WOR 077777 
002456 177777 WORD 177777 
002460 177776 DATA2: .WORD 177776 ;STANDARD PATTERN 2 
002462 177774 «WORD = 177774 


SEQ 0055 
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TABLES, CONSTANTS, AND VARIABLE LOCATIONS 
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sSTANDARD PATTERN 3 
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STANDARD PATTERN 4 


Ok cool cee eel aeck eek see mek cee cool oe el oll ee ol ae 
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;STANDARD PATTERN 5 
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SEQ 0056 
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TABLES, CONSTANTS, AND VARIABLE LOCATIONS 


NOWMAAINOUING 
--O-Or- Or 
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STANDARD PATTERN 6 (NOT WORST CASE? 


wwowowowowowowvoowvownovnovoo0nv0n7 
DWARVES 


WOOOOOOOOOOOOOODO 
RMAMADAAAAIALALAIALALAASY 
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STANDARD PATTERN 7 


PMAAMAMAMA MAMTA TAD 
DAA MAMDAMAMILA MAMTA MY 


DID DIAAPIAPIAMIA ITA PAD 


Coat eel eel cell cel ool ool nell cell oul eel ceed etl endl eel coed 
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NVA NNN 
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CSOooooooooooeoeeeoo 


;STANDARD PATTERN 8 (WORST CASE) 


el ce eel cael eee cet cell eit ae eel seed oe ee co 


COOCCOCOOOoOOooooem 
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SEQ 0057 


STANDARD PATTERN 9 
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TABLES, CONSTANTS, AND VARIABLE LOCATIONS 


STANDARD PATTERN 10 
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STANDARD PATTERN 11 
STANDARD PATTERN 12 
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SEQ 0058 
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STANDARD PATTERN 13 
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;ALL 1°S DATA PATTERN 


STANDARD PATTERN 14 


OF. L EEE 


w 

e= ee 

qmuw 

ws 

<z2 

ao 

On LARA AA LLL RR 
On AA LAA 
OnE RR. 
a dd kd dd dh dh hd 
OnE LAR R 
Onrrnrnrnenrnrcrcrcreern-—— 
OOOORKLAKROOCSO eK KK 
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STANDARD PATTERN 15 


ooooooooo 
CSoooooeoo 
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TABLES, CONSTANTS, AND VARIABLE LOCATIONS 

003342 000000 «WORD 09000 

003344 000000 . 00000 

003346 000000 00000 

003350 000000 «WORD 000000 

003352 000000 WORD 000000 

OO ese 000000 -WORD 900000 

003356 000000 w 000000 


I 
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ERROR POINTER TABLE 85 12:06:52 PAGE 10 SEQ 0060 


-S8TTL ERROR POINTER TABLE 
s*THIS hig A Rita THE INFORMATION 4~ EACH ERROR a CAN OCCUR. 


>*THE INFORMATION IS OBTAINED BY USING THE INDEX ey FOUND IN 
ER te de al WHICH ITEM IN THE hs «43 s PERTINENT. 


:*LOCATION SITENB, THIS NUMB 
NOTE1: IF SITEMB 1S 0 THE ONLY PERTINENT DATA 1S ($ERR 
: SNOTE2: EACH ITEM IN THE FABLE CONTAINS 4 POINTERS ERPLAINED AS FOLLOWS: 
:* EM s:POINTS TO THE ERROR MESSAGE 
3* DH >:POINTS TO THE D HEADER 
3* DT S:POINTS TO THE D ATA 
3* DF ::POINTS TO THE PATA FORMAT 
, 003360 SERRTB: 
§ ERROR 1 
4 003360 050744 m1 :RH CONTR R INTERRUPT RRED (RPAS = 0) 
: b0s360 050764 emt CONTROLLER INTERRUPT OCCURRED $= 0 
6 003364 054424 DT1 
i 003366 000000 0 
m sERROR 2 
11 003370 051017 EM2 SUNEXPECTED ATTENTION OCCURR 
12 003372 053756 DH2 riety . — 
13 003374 054430 DT2 
1% 00337" 000000 0 
1¢ ERROR 3 
18 003400 051055 EM3 sMASSBUS PARITY ERROR (MCPE=1) 
19 003402 054033 DH3 
20 003404 054434 pT3 
$3 003406 000000 0 
$7 TERROR 4 
25 003410 051113 EMG sMASSBUS PARITY ERROR (PAR=") 
26 003412 054061 DH4 
27 003414 054440 DI4 
$8 093416 000000 
3 TERROR 5 
3 003420 051150 EMS :NOT USED 
33 003422 053756 DH2 
34 003424 054430 DT2 
HA 003426 000000 
HH sERROR 6 
39 003430 051204 EM6 :RHXX DIDN'T RESPOND TO ADDRESSING 
40 003432 054120 DH6 
41 003434 054444 D16 
42 003436 000000 
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ERROR POINTER TABLE 
; THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 
003440 011600 BADTMO: MOV (SP), RO ;SAVE PC WHERE THE TIME OUT OCCURED 
4 O34? 005740 TST “(R SADJUST PC = 
5 003444 022626 7 CMP (SP)+, (SP)+ SRESTORE STACK POINTER 
6 003446 104401 003454 TYPE 658 33 TYPE ASCIZ STRING 
003452 000417 BR 4$ “GET OVER THE ASCIZ 
sane i158! "ASCIZ <CRLF><LF>/UNEXPECTED BUS TIMEOUT, PC=/ 
7 003512 010046 MOV RO,-(SP) sSETUP FOR TYPING OUT PC 
8 003514 104402 TYPOC 
9 003516 000246 NOP Put "HALT (0) INSTRUCTION HERE If YOU WISH 
10 :TO STOP ON UNEXPECTED TIMEOUT. 
i 003520 000404 BR STARTI SBRANCH TO START 
i? .SBTTL START OF PROGRAM 
15 003522 012737 177777 001332 START: MOV #-1, CHGAOR ;ALLOW RHXX/RPO7 ADDRESS TO BE CHANGED 
16 003530 000407 BR START2 SSTART THE PROGRAM 
18 003532 012737 000400 001332 START1: MOV #400, CHGADR :CLEAR RHXX/RPO7 ADDRESS CHANGE FLAG 
19 SF RRAARAAAEARAAAAAEAE EAA AAEA AEE AAAAAAAAAEARERREEEARAAEARRRAAAEREE ES 
003540 000240 t$T1: NOP 
- 003542 012737 000001 001212 MOV #1,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
21 003550 005227 090000 START2: INC #0 sTTY LOOP, WAIT FOR INCREMENT 
22 003554 001375 BNE 16 30 
33 003556 000005 RESET [CLEAR THE WORLD 
25 .SBTTL INITIALIZE THE COMMON TAGS 
::CLEAR THE COMMON TAGS ($CMTAG) AREA 
003560 012706 001114 MOV #SCMTAG,RO FIRST LOCATION TO BE CLEARED 
03564 005026 CLR (R6) + ick LEAR MEMORY LOCATION 
003566 022706 001154 CMP #SWR,R6 ‘DONE? 
003572 001374 BNE 6 ‘LOOP BACK IF NO 
003574 012706 001100 MOV #STACK,SP SISETUP THE STACK POINTER 
js INITIALIZE A FEW VECTORS 
003600 012737 034742 000030 MOV #SERROR ,aMEMTVEC zzEMT VECTOR FOR ERROR ROUTINE 
003606 012737 000340 000032 MOV #340, a#EMTVEC+2 ; 33k 
003614 012737 040256 000034 MOV PSTRAP DATRAPVEC | atyt) VECTOR FOR TRAP CALLS 
03622 012737 000340 000036 MOV #340, a#TRAPVEC+2;LEVEL 
003630 012737 037640 000024 MOV #SPWRON, a#PWRVEC "7 7POWER FAILURE VECTOR 
003636 012737 000340 000026 MOV #340 a#PWRVEC+2 s:LEVEL 
003644 012737 176543 037284 MOV ai 343. $HINUM : PRIME THE RANDOM NUMBER GENERATOR 
003652 012737 123456 037226 MOV 456. $LONUM gBOTH HIGH AND LOW WORDS 
:iS1ZE FOR A HARDWARE SuITCH REGISTER. IF NOT FOUND OR IT IS 
[EQUAL TO A SETU P FOR A SOF TARE “sult REGISTER. 
003660 °013746 000004 HOV $P) 33 y ERROR VECTOR 
003664 012737 003720 000004 MOV ait any EC ::SET UP ERROR V VECTOR 
003672 012737 177570 001154 MOV oh ?:SETUP FOR A HARDWARE SWICH REGISTER 
003700 012737 177370 001156 MOV #DBLSP DISPLAY ?:AND A HARDWARE DISPLAY REGISTER 
03706 022777 177777 175240 CMP #-1,aSUR [TRY TO REFERENCE HARDWARE SWR 
003714 001012 BNE ?:BRANCH IF NO TIMEOUT TRAP OCCURRED 
3: THE HARDWARE SWR IS NOT = -1 
003716 000403 BR 65$ i TBRANCH IF NO TIMEOU 
003720 012716 003726 64%: MOV #65$, (SP) °:SET UP FOR TRAP RETURN 
003724 000002 RTI 


RJOA 
ITIA 
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LIZE THE COMMON TAGS 
03726 012737 000176 001154 65$: MOV #SWREG, SWR ysPOINT TO SOFTWARE SwR 
00378 O18737 900174 001156 MOV #D1SPR PREG, DISPL 
003742 012637 000004 66$: MOV S BRERRVEC ”  SRESTORE ERROR VECTOR 
00374 995037 001214 CLR SPASS s:CLEAR PASS COUNT 
003752 132737 000200 001227 BITB #APTSIZE,SENVM i TEST USER Size UNDER APT 
00376 901403 BEQ USE NON-APT SWITC 
00376 012737 001230 001154 oe, MOV #SSWREG, SWR ciiB. Use APT SWITCH REGISTER 
26 3 SETUP "TIMEOUT" TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 
27 003770 012737 003440 000004 WBADTMO,ERRVEC ;SETUP FOR UNEXPECTED TIMEOUT 
28 003776 012737 000300 000006 MOV WPRO,ERRVEC+2 [LEVEL 6 
c 
30 004004 104401 001432 YPE ;TYPE PROGRAM ID, REV LEVEL & PATCH LEVEL 
31 .SBTTL TYPE program AME 
sz TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
004010 005227 177777 INC #1 sFIRST TIME? 
004014 001022 BNE 68s : BRAN CH IF 
004016 104401 004024 TYPE 69$ TYPE “ASCIZ OFRING 
004022 000417 BR 68s *:GET OVER THE ASCIZ 
004062 FY a eASCIZ <CRLF>ARPO7 PERFORMANCE EXERCISER@<CRLF > 
.SBTTL Get VALUE FOR SOFTWARE SWITCH REGISTER 
004062 005737 000042 TST ade sARE WE RUNNING UNDER XXDP/ACT? 
004066 001012 BNE 70$ : BRAN NCH IF 
004070 123727 001226 000001 CMPB SENV,#1 2c AR —E WE RUNNING UNDER APT? 
004076 001406 BEQ 70$ : :BRANCH 
004100 023727 001154 000176 CMP SWR, #SWREG ;;SOFTWARE SWITCH REG SELECTED? 
04106 001005 BNE 71$ ::BRA 
004110 104406 GTSWR i BRA SUFT<SWR SETTINGS 
004112 000403 BR 71$ 
004114 112737 000001 001150 70$: # MOVB  #1,$AUTOB s:SET AUTO-MODE INDICATOR 
= 004122 71$: 
33 ;THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE: 
30 :PAPER TAPE (MANUAL), ACT11, XXDP CHAIN OR DUMP 
36 004122 005037 001430 CLR XXDP :CLEAR 'XXDP* LOAD DEVICE STORAGE 
37 004126 122737 177777 000041 (MPR ot-1,a#41 i LOADED FROM AN RPO? ? (UNKNOWN) 
38 004134 001121 BNE NOT 
39 004136 013737 000040 001430 MOV a#40,XXDP err DEVICE INDICATOR AND NUMBER 
40 004144 122737 000007 001430 CMPB ss #7, XXDP 318 IT A VALID NUMBER ? 
41 004152 103002 BHIS 1$ 
42 906154 105037 01430 CLRB = XXDP *NO, DEFAULT TO DRIVE 0 
4? 004160 005757 00042 1$: TST ard2 :C HAIN MODE OR ACT11 AUTO ACCEPT ? 
44 004164 001425 BEQ 2$ :BR IF NEITHER 
45 004166 104401 004174 TYPE 73$ i TYPE ASCIZ STRING 
004172 000412 BR 723 T OVER THE ASCIZ 
-:73$: .ASCIZ <CRLF>/NOT wendi® PRIVESs 
004220 72$: 
46 004220 005046 CLR -(SP) sCLEAR WORD ON STACK 
47 004222 112716 001430 MOVB = XXDP, (SP) [GET DRIVE ADDRESS 
48 004 <6 104403 TYPOS :T PE 1 : UADRESS 
49 004230 001 .BYTE 1 ONLY RACTER 
50 004231 000 "BYTE 0 SOOO RESS LEADING ZEROS 
51 004232 104401 001203 TYPE SCRLF CRLF 
52 004236 000460 BR $$ [GET NUMBER OF DRIVES 
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54 004240 005227 177777 28: INC #-1 ZFIRST TIME THRU HERE ? 
55 004244 eta BNE “E 0 
56 0042466 104401 004254 TYPE 75$ $s TYPE ASCIZ STRING 
004252 000410 BR 74g “GET joveR THE ASCIZ 
ies 55758: SASCIZ <CRLF>/TO TEST DRIVE 
57 rk 005046 CLR -(SP) :CLEAR WORD ON STACK 
58 004276 113716 001430 MOVB = XXDP, (SP) [GET DRIVE ADDRESS 
04302 104403 TYPOS STYPE DRIVE ADDRESS 
60 004304 001 .BYTE 1 [ONLY 1 CHARACTE 
61 004305 000 “BYTE 0 * SUPRESS LEADING ZEROS 
62 004306 104401 004314 TYPE 76$ 33 TYP E ASCIZ STRING 
004312 000432 BR $ t:GET OVER THE ASCIZ 
004400 agees eASCIZ /, HALT PROGRAM, “CLEAR LOC. 40 AND RESTART PROGRAM. /<CRLF> 
66 004400 004737 033430 JSR PC, STKINT ; TURN ON THE ok EYBOARD INTERRUPT 
67 004404 105737 001226 TSTB ss SENN [RUN UNDER APT MODE 
68 004410 001415 REQ 5$ [NO,DO NOT BOTHE 
004412 105737 001256 TSTB = $VECTI ZNEW VECTOR ? 
70 004416 001403 BEQ ‘NOT LOAD IF = 0 
71 004420 113737 001256 001274 MOVB $VECT1,$RPVEC :NEW V VECTOR 
72 004426 005737 001262 4$: TST SBASE NEW BASE ADDRESS ? 
73 004432 001411 BEQ 6$ 
74 006434 013737 001262 001272 MOV S$BASE,SRPADR  :NEW BASE ADDRESS 
i 004442 000405 BR 6$ 
77 004444 105737 001150 5$: 1STB  $AUTOB : RUNNING IN AUTO MODE ? 
78 004450 001002 BNE 6$ 
79 004452 004737 062436 JSR PC,BUSADR ‘CHECK RHXX/RPO7 BUS ADDRESS 
80 004456 013737 001272 040560 6: MOV SRPADR,RPADR :LOAD ADDRESS INTO DRIVER 
81 004464 013737 001 74 040562 MOV SRPVEC, RPVEC _ $LOAD VECTOR INTO DRIVER 
82 004472 005037 001 CLR STATIN ; CLEAR PERFORMANCE pe TYPEOUT FLAG 
83 004476 012705 001826 MOV #ORDERO,RS [START OF AREA TO CLEAR 
84 004502 005025 7$: CLR (R5)¢ 
85 004504 022705 002056 CMP #BLKADR,RS :LOOK FOR END OF CLEAR AREA 
86 004510 001374 BNE 7$ [BR IF NOT FINISHED 
87 004512 012706 001100 MOV #STACK,SP SSETUP THE STACK POINTER 
88 004516 005037 177776 CLR PS ZCLEAR THE PROCESSOR STATUS WORD 
89 004542 013737 001312 001346 MOV HERTZ,ONESEC © ;RESTORE ONE SECOND COUNTER VALUE 
90 004530 005037 001340 CLR HOUR [CLEAR THE HOUR'S COUNTER 
91 004534 005037 001342 CLR MINUTE :CLEAR THE MINUTE'S COUNTER 
92 004540 005037 001344 CLR SECOND ZCLEAR THE SECOND'S COUNTER 
93 004544 00057 901472 CLR INTRVL#+2 *CLEAR INTERVAL COUNTER 
94 004550 013737 001462 001464 MOV CHPTIA, CMPTIM+2 :INIT COMPARE TIME COUNTER 
95 004556 005037 001334 CLR CFLAG SCLEAR THE “CONTROL C* FLAG 
98 004562 005037 046366 CLR DRIVEO*SFIRST RESET $FIRST FLAG FOR DRIVE 0 
004566 005037 046630 CLR DRIVEI+$FIRST RESET SFIRST FLAG FOR DRIVE 1 
004572 005037 047072 CLR DRIVEg*SEIRST TRESET $FIRST FLAG FOR DRIVE : 
004576 005037 047334 CLR DRIVES+SFIRST RESET SFIRST FLAG FOR DRIVE 
004602 005037 047576 CLR DRIVEG+SFIRST RESET SFIRST FLAG FOR DRIVE 4 
004606 005037 050040 CLR DRIVES*SFIRST RESET SFIRST FLAG FOR DRIVE 5 
004612 005037 050302 CLR DRIVES*SFIRST RESET SFIRST FLAG FOR DRIVE 6 
C04616 005037 050544 CLR DRIVE7+SFIRST RESET SFIRST FLAG FOR DRIVE 7 
103 004622 005037 001424 CLR RDONLY SASSUME READ/WRITE CONDITION 
104 004626 032777 000001 174320 BIT #SW0,aSWR [1S EXERCISER IN "READ ONLY’ MODE ? 
105 004634 001402 BEQ RG ‘BR IF NO 
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001424 


001150 
177777 


064330 


001334 


000001 


000131 
000116 
060103 
057017 
064440 


000074 
005040 


001272 
040566 


001400 
000005 


SWITCH REGISTER 


001234 
000004 


040566 


040566 


INC 
8$: 


RDONLY 


;LOCK PROGRAM IN ‘READ ONLY MODE 


sSEE IF OPERATOR WANTS HELP TEXT PRINTED 


93: TYPE 


10$: TYPE 

11$: TYPE 
BR 

12$: TYPE 


13$: 


SAUTOB 
13$ 
a= 
13$ 


»MSHELP 


on 
4d 
ro 
rw 
a+ 
7 
xz 
Oo 


. oO ~ 
“~~ lh 

@ 

oO 

— 


PATZM<HKHDRKHOM 
. 
~~ 
zz 
oOo 
~ 


Ya 
POW -— -O-—70" 


NODFLT 
oHELPTX 


;AUTO MODE ? 
3BR IF YES 
sFIRST TIME THRU HERE ? 
3;BR IF NO 


sTYPE ‘TYPE HELP MESSAGE (L) N? ° 
READ THE ENTRY 

sSAVE ADDRESS OF RESPONSE 

7“ ts TYPED? 

sWAS RESPONSE A CARRIAGE RETURN ? 

:BR IF YES (DEFAULT) 

sWAS IT TERMINATED WITH CARRIAGE RETURN ? 


3 F NO 

sWAS IT A ‘Y* RESPONSE ? 
3BR IF YES 

me IT A ‘N* RESPONSE ? 
;TYPE BAD ENTRY MESSAGE 
zTRY AGAIN 

sTYPE ‘NO DEFAULT’ 

sTRY AGAIN 

;TYPE HELP TEXT MESSAGE 


sAUTO SIZE FOR RH70 CONTROLLER AND DETERMINE IF IT IS 


sJUMPERED FOR 22 OR 32 REGISTERS 


SIZE70: CLR 
B 


1$: TST 


2$: MOV 


3$: MOV 


RHEXT 
#174000, $CPUOP 
hy SPs te 


1$ 
#74, RHEXT 


#3$, (SP) 
SRPADR,RO 
RHEXT,R1 
4$ 

RO 
#A 
#3,(R1) 


R1 
17'A16, (RO) 


CLEAR RPBAE OFFSET 
sCLEAR CPU TYPE REGISTER 
“seve CONTENTS OF in isetaa 


RH70 
:GET NUMBER OF REGISTERS TO CHECK 
TRAP IF NOT A VALID RPBA 
TRAP IF NOT A VALID RPCS 
sLOAD OFFSET FOR RPBAE (22 REGISTER RH) 
TRAP IF NOT A VALID REGISTER 
sDONE WITH ALL 32 REGISTERS ? 


:BR IF NO 
sLOAD OFFSET FOR RPBAE (32 REGISTER RH) 
SETUP RETURN ADDRESS 


3GET RPCS1 REGISTER 

sGET RPBAE REGISTER OFFSET 

:BR_IF NONE 

2GET RPBAE REGISTER 

sSET EXTENDED ADDRESS BITS IN RPCS1 
sARE THE EXTENDED BITS SET IN RPBAE ? 


SEQ 0064 


N 5 
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164 005064 001010 BNE 4$ ;BR IF NO 
165 005066 005011 CLR (R1) CLEAR EXTENDED ADDRESS BITS IN RPBAE 
166 00507 11046 MOV (RO) ,<(SP) “SAVE RPCS1 REG CONTENTS 
167 005072 042726 176377 BIC #*C<A17!A16>, (SPS sARE THE EXTEND BITS CLEAR IN RPCS1 ? 
168 005076 010 BNE 4$ :BR IF NO 
169 005100 032 030000 001234 BIS #B81T13'B1T12,$CPUOP :SET THE 11/70 CPU TYPE CODE 
170 005106 012637 000004 4$: MOV (SP) +, ERRVEC sRESTORE CONTENTS OF ERROR VECTOR 
\7¢ gROUTINE TO DETERMINE BUFFER MAX WORD COUNT 
174 005112 005227 177777 SIZMEM: INC #1 sFIRST TIME THRU HERE ? 
175 005116 901005 BNE $ 3BR 
176 005120 004 062304 JSR PC,$SIZE :SEE HOW MUCH MEMORY ON SYSTEM 
177 005124 013737 062434 001330 MOV $LSTAD,LSTAD  ;SAVE THE LAST ADDRESS 
178 005132 012737 600001 001654 1$: MOV #1, BUF TBL sLOAD NUMBER OF BUFFERS 
179 005140 012737 064330 001656 MOV #ENDPGM, BUF TBL+2 sSTARTING ADDRESS OF BUFFER 
180 005146 013737 001330 001660 MOV LSTAD,BUFTBL+4 ;LAST ADDR TO BUFFER ALLOCATION TABLE 
181 005154 023727 001330 160000 CMP LSTAD,#160000 ;OVER 28K ? 
182 005162 101403 BLOS 2 iN 
183 005164 012737 160000 001660 MOV #160000 ,BUF TBL+4 :XXDP MAX MEMORY 28K 
184 005172 162737 064330 001660 2$: SUB #ENDPGM,BUF TBL+4 :SUBTRACT PROGRAM SPACE 
185 005200 000241 CLC CLEAR THE *C* BIT 
186 005202 006037 001660 ROR BUF TBL+4 :CONVERT TO WORD COUNT 
187 005206 105737 001150 TSTB $AUTOB sRUNNING IN AUTO MODE ? 
188 005212 001403 BEQ 3$ :BR IF NO 
189 005214 16073? 003000 001660 SUB #1536.,BUFTBL+4 :SUBTRACT 'XXDP* LOADER SIZE (1.5K WORDS) 
190 905228 023737 001466 001660 35: CMP WROCNT,BUFTBL+4 :1S MAX WORD COUNT TOO LARGE ? 
191 005230 003406 BLE 4$ :BR IF NO 
192 005232 013737 001660 001466 MOV BUFTBL+4,WRDCNT ;USE MAX AVAIL MEMORY AS MAX WRD CNT 
193 005240 013737 001466 060606 MOV WRDCNT,PARLST+#2 ;VALUE FOR THE PARAMETER TABLE 
1% 005246 4$: 
| SEE IF THE OPERATOR WANTS TO CHANGE ANY PARAMETERS 
198 005246 005737 040020 LKPAR: TST PWRFLG ZRETURNING FROM POWER FAIL ? 
199 005252 001154 BNE SETVEC sBRANCH IF YES 
205 005260 105737 001150 © TSTB «= $AUTOB sRUNNING IN AUTO MODE ? 
209 005264 001404 BEQ 1$ :BR IF N 
210 005266 032777 000004 173660 BIT #SWO02,aSWR :DOES USER WANT MANUAL INTERVENTION ? 
gi} 005274 001467 BEQ 8$ 7BR IF YES 
315 005276 005037 001334 1$: CLR CFLAG ZCLEAR CONTROL C FLAG . 
214 005302 104401 060226 TYPE »MESFE :TYPE "DO YOU WANT TO WRITE ANYWHERE ON MEDIA (L) N ? 
313 9053 104411 RDLIN sREAD THE ENTRY 
16 00531 912600 MOV (SP)+,RO :SAVE ADDRESS OF RESPONSE 
217 00531 005737 001334 TST CFLAG :WAS IT CONTROL C ? 
218 005316 001353 BNE LKPAR :BR I 
219 005320 105710 1STB (RO) :WAS RESPONSE A CARRIAGE RETURN ? 
330 005322 001454 BEQ 8$ sBR I 
21 005324 105760 000001 TSTB 1(RO) sWAS IT TERMINATED WITH CARRIAGE RETURN ? 
338 005330 001006 BNE 7BR I 
23 005332 122710 000131 CMPBes#*Y, (RO) *WAS IT A "Y¥* RESPONSE ? 
224 005336 0014 BEQ :BR IF YES 
225 005340 122710 000116 CMPB #'N, (RO) :WAS IT A "N® RESPONSE ? 
226 005344 00144 BEQ 8$ sBR IF YES 
227 005346 104401 060103 2$: TYPE »BADENT :TYPE BAD ENTRY MESSAGE 
228 005352 000735 BR LKPAR sTRY AGAIN 
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005737 001424 3$: TST RDONLY :PROGRAM RUNNING IN READ ONLY MODE ? 
001032 BNE 7$ ‘BR IF YES 
005037 001334 4$: CLR CFLAG sCLEAR CONTROL C FLAG 
104461 060307 TYPE -OVRWRT ‘TYPE *  ! CUSTOMER DATA WILL BE OVERWRITTEN ! 
[CONTINUE (L) ?° 

104411 RDLIN ‘READ THE ENTRY 
012600 MOV (SP)+,RO ‘SAVE ADDRESS OF RESPONSE 
005737 001334 TST CFLAG ‘WAS IT CONTROL C ? 
001321 BNE LKPAR 8 
ic9710 iste (R0) “WAS RESPONSE A CARRIAGE RETURN ? 

6] e 
105760 000001 TSTB =: 1(RO) tWAS IT TERMINATED WITH CARRIAGE RETURN ? 
001006 BNE 5$ ; 
122710 000131 CMPBs# "Y, (RO) [WAS IT A *Y" RESPONSE ? 
001411 BEQ 7$ :BR IF Y 
122710 000116 CMPB es # "N, (RO) [WAS IT A "N' RESPONSE ? 
001411 BEQ ‘BR IF Y 
104401 060103 S$: TYPE BADENT [TYPE BAD ENTRY MESSAGE 
000751 BR é STRY 
104401 057017 63: TYPE NODFLT :TYPE "NO DEFAULT’ 
000746 BR :TRY AGAIN 
005237 001422 7$: Inc TSTANY ‘ENABLE TEST ANYWHERE OPTION 
104401 060451 8$: TYPE »FEONLY sTYPE '* TESTING WILL OCCUR ON FE CYLINDER ONLY ®*° 
005737 001424 9$: TST RDONLY :1S PROGRAM LOCKED IN "READ ONLY’ MODE ? 
0u1402 BEQ 13$ : FN 
104401 060526 TYPE SMREAD STYPE ** PROCRAM IS LOCKED IN "READ ONLY® MODE *° 
005037 001334 13$: CLR CFLAG sCLEAR CONTROL C FLAG 
105737 001150 TSTB  $AUTOB [RUNNING IN AUTO MODE ? 
001040 BNE SETVEC 7BR IF YES 
104401 060706 TYPE WASKPAR [TYPE "CHANGE PARAMETERS ?° 
104411 RDLIN SREAD THE ENTRY 
012600 MOV (SP)+,RO ‘SAVE ADDRESS OF RESPONSE 
005737 001334 TST CFLAG SWAS (*C) TYPED? 
001364 BNE 13$ *BR IF YES 
105710 TSTB —s_ CRO [WAS RESPONSE A CARRIAGE RETURN (DEFAULT 'N*)? 
001427 BEQ SETVEC ; 
105760 000001 TSTB ~—-:1€RO) tWAS IT TERMINATED WITH CARRIAGE RETURN ? 
001006 BNE 14$ [BR IF N 
122710 000131 CMPB#'"Y, (RO) [WAS IT A *Y* RESPONSE ? 
001406 BEQ ENTPR [BR IF YES 
122710 000116 CMPB es # "NN, (RO) [WAS IT A "N" RESPONSE ? 
001416 BEQ SETVEC “BR IF Y 
104401 060103 148: TYPE BADENT :TYPE BAD ENTRY MESSAGE 
000746 BR {3$ STRY AGAIN 

15$: 

012703 060604 ENTPR: MOV #PARLST,R3 sPARAMETER TABLE ADDRESS 
004737 031110 JSR PC, PARENT [GET THE PARAMETER ENTRY 
023727 001466 000006 CMP WROCNT, #6 [1S THE "WRDCNT’ VALUE OK ? 
103003 BHIS  SETVEC “BR IF IT IS 
012737 000006 001466 MOV #6,WRDCNT SSET "WRDCNT’ TO THE MINIMUM VALUE 
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000460 


104401 
000455 


104401 
000416 


104401 
000413 


005737 
UU146U0 


SWITCH REGISTER 


040464 
056700 
056715 
056607 
056751 


001430 
001430 
056761 


056620 
056530 


040464 
057075 
000005 


057102 


040522 


173310 


006026 


006026 


:DISPLAY DRIVE STATUS AND SET UP THE OT 
;THE PROGRAM WILL USE. PROGRAM RETUR 


SETVEC: JSR 
JSR 


1$: CLR 
2$: TYPE 


3$: TYPE 

4$: TYPE 

5$: TYPE 
BR 


6$: TST 


BR 
7$: TYPE 
8$: TYPE 


9$: 
10$: WORD 


$ 

+ alt 
#SWO02 ,aSwR 
12$ 
RS 

eORSTAT 


. SCRLF 
R4,-(SP) 


LNKS4 
VSTAC(R4) 


UNTOF F 


&$ 


NOTSAF 


&$ 


DRVTYP(R4) ,RO 
as 


9 
#$RPO7P,108 


0 


HER S#3 
N HERE ON 

sSTART THE CLO 
sINITIALIZE TH 
sSET THE SAVE 
sFIRST TIME TH 
3sBR IF YES 
sRETURNING FRO 
sBRANCH IF YES 
;TYPEOUT THE D 
3BR IF NOT 
sDRIVE TABLE P 
15 a Ti eta S 


7CR- 
7;SAVE R4& FOR 


NTER 
TATUS* 
TYPEOUT 


7s TYPE DRIVE NUMBER 


GO _ TYPE--0CT 


SiTYPE 2 DIGIT(S) 


AL ASCII 


; SUPPRESS LEADING ZEROS 
ANKS 


‘TYPE 4 BL 
SCHECK DRIVE'S 
[BR IF UNSAFE 
*BR IF ONLINE 


L 
:DRIVE NOT AN 
CHECK NEXT DR 


DRIVE NOT PRE 
; CHECK NEXT DR 


sDRIVE OFFLINE 
PRINT DRIVE T 


DRIVE UNSAFE 
sPRINT DRIVE T 


{LOADED FROM T 
SLOADED FROM T 
‘BR IF N 

[TYPE "LOAD DE 


sDRIVE ONLINE 
sTYPE 2 BLANKS 


3GET DRIVE TYPE 


sASSUME ADDRES 
31S DEVICE AN 
sTYPE IT 

sASSUME ADDRES 


TYPE THE DRIV 
sMESSAGE ADDRE 


STATUS 


SEE IF OFFLINE OR NONEXISTENT 
;BR IF NONEXISTENT 


RPO7 
IVE 


SENT 
IVE 
YPE 


YPE 

HIS DEVICE ? 
HIS DRIVE ? 
VICE* 


S OF RPO? MESSAGE 
RPO? ? 


F YES 


S OF RPO7+ MESSAGE 


E TYPE MESSAGE 
SS HERE 


SEQ 0067 
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366 006030 006304 ASL R4 CHANGE TO WORD INDEX 

367 006032 016402 002056 MOV "LKADR(R4),R2 GET BASE ADDRESS 

368 006056 eae ASR KG ;CHANGE TO BYTE INDEX 

369 006040 004737 045262 JSR PC ,SVRHXX ;SAVE ALL REGISTERS 

370 006044 032762 000004 000200 BIT #ILV,SRPDS(R2) j INTERLEAVE SECTOR SET ? 

371 006052 001002 BNE 

36 006054 104401 056776 TYPE oNINLEV :TYPE NON=INTERLEAVED MESSAGE 

374 006060 005204 11$: INC R4 INCREMENT DRIVE NUMBER/TABLE POINTER 

375 006062 020427 000010 CMP R4 #6, sFINISHED ? 

376 006066 001272 BNE 2$ :BR IF 

377 006070 104401 001203 TYPE » SCRLF 7 CRLF 

378 006074 12$: 
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s INITIALIZE PROGRAM PARAMETERS FOR STARTUP 
006074 004737 033430 STA: JSR PC. STKINT s INITIALIZE THE KEYBOARD INTERRUPT HANDLER 
4 006100 012737 46200 001446 MOV #142200 ENDCON s INITIALIZE NORMAL XFER COUNT(LSB) 
5 006106 012737 007540 001450 MOV #7540,ENDCON+2 ; (MSB) 
§ ae Baer ne 001000 173032 oS #Sw9 ,aSwR :00 pu MANT SHORT RUN TIME (SW9=1) ? 
8 O06i¢5 Olga! 030440 001446 MOV #030440,ENDCON ;INITIALIZE (1/4 OF NORMAL) XFER COUNT(LSB) 
16 006132 012737 001730 001450 MOV #17350,ENDCON*2 ;(MSB) 
11 006140 105737 001226 18: TSTB SENV sAPT SCRIPT MODE ? 
\¢ 006144 001406 BEQ 2$ 3NO 
13 006146 012737 006110 001446 MOV #006110,ENDCON ;INITIALIZE (1/16 OF NORMAL) XFER COUNT(LSB) 
18 006154 012737 000366 001450 MOV #366,ENDCON+2 ;(MSB) 
16 006162 105737 001150 2$: TSTB SAUTOB RUNNING IN AUTO MODE ? 
17 006166 001003 BNE :BR IF YES 
18 006170 005737 001332 TST CHGADR sSTART AT 200 ? 
ph 006174 003454 BLE 8$ 3NO 
21 006176 005001 3$: CLR R1 DRIVE # 
22 006200 005002 CLR R2 sAVAIL TABLE INDEX 
25 006202 0050035 CLR R3 :DRIVEM * 
24 006204 005737 001430 4$: TST XXDP sLOADED FROM THIS DEVICE ? 
25 006210 001403 BEQ 5$ 3BR IF N 
26 006212 123701 001430 CMPB XXDP,R1 sLOADED FROM THIS DRIVE ? 
27 006216 001433 BEQ 7 :BR IF Y 
28 906220 105761 040454 5$: TSTB DRVSTA(R1) DRIVE ON LINE ? 
29 006224 003430 BLE iN 
30 006226 016300 002056 MOV BLKADR(RS),RO  ;LOAD DPB ADDRESS 
31 604232 004737 030104 JSR PC,CLROPB :CLEAR DPB BLOCK 
32 006236 004737 03101 JSR PC,GETID 3GET DRIVE SERIAL NUMBER 
33 006242 032760 000004 000200 BIT #ILV,SRPDS(RO) ;INTERLEAVE SECTOR SET ? 
34 006250 0601402 BEQ ;BR IF NO 
35 006252 010062 001566 MOV RO,NEWUNT(R2)  ;LOAD DPB ADDRESS TO ABAIL QUEUE 
36 006256 004737 030322 6$: JSR PC,DRVPRM SETUP DRIVE PARAMETER LIMITS 
37 006262 005737 040020 TST PWRFLG RETURNING FROM POWER FAIL ? 
38 006266 001007 BNE 7$ sBRANCH IF YES 
39 006270 005060 000132 CLR SFIRSTCRO) sRESET SFIRST FLAG FOR FIRST 294 START 
40 006274 112760 177776 000026 MOVB #-2,$PACK(RO) ;SETUP COMMAND ‘WI’ (WRITE DATA AND TEST) 
4] 006302 004737 020250 JSR PC,SEQPAR sSETUP SEQUENTIAL PARAMETERS FOR WRITE 
re 096306 022322 7$: CMP (R3)+,(R2)+ s INCREMENT INDEX 
44 906310 005201 INC R1 sNEXT DRIVE 
45 006312 Oeolee 000007 CMP 1,87 sALL DRIVES ASSIGNNED ? 
46 006316 003732 BLE 43 3NO 
47 006320 005037 001332 CLR CHGADR sCLEAR START FLAG 
“8 006324 000403 BR 9% 
50 006326 012737 000001 001334 &8$: MOV #1,CFLAG DUMMY "CONTROL C° FLAG 
51 006334 005037 040020 9$: CLR PWRFLG sCLEAR POWER FAIL FLAG 
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007234 
026454 


001610 


001632 


000010 


001566 


-SBTTL MAIN PROGRAM 


MAIN: TST FLAG 
BEQ 

1$: TST ORDERQ 
BEQ 2$ 
JMP IDLE 

¢: JSR PC,KSR 


sCHECK FOR DRIVES TO BE DROPPED 


MAINDA: MOV #8. ,R3 
MOV #D0DRVS,R5 
1$: TST (R5) 
BNE 3$ 
2$: TST (R5)+ 
DEC R3 
BNE 1$ 
BR MAINI 
3$ MOV #AVAIL,RI 
4$ TST (R1) 
BEQ 5$ 
CMP (R1),(R5) 
BEQ 7$ 
TST (R1)+ 
BR 4% 
5$: MOV #WAIT,R1 
6$: TST (R1) 
BEQ 2$ 
CMP (R1),(R5) 
BEQ 7$ 
TST (R1)+ 
BR 6$ 
7$: MOV (R1),RO 


TYPE eMSGDRP 
JSR PC ,ONE SUM 
CLR (R 

JSR PC, CMPRES 
BR 2$ 


;LOOK FOR DRIVES TO BE ASSIGNED 
MAIN1: MOV #8. ,R3 
C R1 


CLR R2 
CLR R5 

1$: TST NEWUNT(RS) 
BNE 3$ 

2$: TST (R5)+ 


SEQ 0070 


sWAS (*C) TYPED? 


sBR I 

ANY DRIVES IN ORDER QUE ? 
[LET ALL DRIVES FINISH ORDER 
*SERVICE THE KEYBOARD 


UNTER 

OF sapere DRIVE* TABLE 
NTRY AT PRESENT POSITION 
ERE IS ON 


OF "AVAILABLE ob i TABLE 
OF "AVAIL® TABLE ? 


IN "AVAIL® THE TABLE ? 


AND CONTINUE LOOKING 


sADDRESS OF THE “WAIT eres TABLE 
ar Tk THE ay OF ‘WAIT’ TABLE ? 


IF YES 
31S DRIVE IN THE ‘WAIT® TABLE ? 
7BR IF YES 


7NO, INCREMENT ‘WAIT’ TABLE ADDRESS 
AND CONTINUE LOOKING 


PRoOLe THE DRIVE'S BLOCK ADDRESS IN RO 
TYPE ELAPSED TIME 


‘TYPE DROPPED ° 
;TYPE gone “onive SUM 
EAR RIV VEU TABLE ENTRY 


7SEE IF ANY MORE DRIV 


DRIVE COUNT 
ASSIGN LIST INDEX 
i AAVA IL* INDEX 
W DRIVE INDEX 
NEW pris IN THIS POSITION 
:BR MY THERE IS 
s INCREMENT R5 
SINCREMENT ASSIGN INDEX 
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MAIN PROGRAM 
58 006532 005303 DEC R3 sDECREMENT DRIVE COUNT 
59 O63 001371 BNE 1$ <BR IF MORE DRIVES 
60 006536 000442 BR MAIN2 ‘START OPERATIONS FOR THE AVAILABLE DRIVES 
62 006540 104401 001203 3$: TYPE SSCRLF CRLF 
63 006544 104401 056601 TYPE DRVMSG : *DRIVE' 
64 006550 010146 MOV R1,-(SP +;SAVE R1 FOR TYPEOUT 
Si:TYPE DRIVE NUMBER 
006552 104403 TYPOS ':G0 TYPE=-OCTAL ASCII 
006554 002 BYTE 2 SiTYPE 2 DIGIT(S) 
006555 000 “BYTE [SUPPRESS LEADING ZEROS 
65 006356 104401 056573 TYPE » COMMA :TYPE ',* 
66 006562 104401 056531 TYPE *BLNKS1 i TYPE 1 BLANK | 
67 006566 016500 001566 MOV NEWUNT(RS),RO  :PUT ADDRESS OF DPB IN RO 
68 006572 004737 032770 JSR PC, TYPDRV iTYPE DRIVE SERIAL NUMBER | 
9 006576 104401 057623 TYPE »ASGND = "STARTED" 
70 006602 005762 001610 4$: TST AVAIL (R2) 3AT END OF AVAILABLE TABLE 
71 006606 001402 BEQ $ R IF YES 
006610 00572¢ TST (R2)+ : INCREMENT AVAILABLE TABLE INDEX 
73 006612 00077 BR 4$ CONTINUE LOOKING FOR END OF TABLE 
74 006614 016562 001566 001610 S$: MOV NEWUNT (RS) ,AVAIL (R2) sMOVE ADDR OF ERIVE. INTO AVAIL LST 3 
75 006622 005065 001566 CLR NEWUNT(R5) “TAKE DRIVE OUT OF NEW DRIVE TABLE » 
76 006626 156137 040550 001542 BISB  ATABIT(R1),ASNLST sSET DRIVE ASSIGNED INDICATOR 
77 006634 005037 032020 CLR AUTLST sCLEAR AUTO ASSIGN 
78 006640 005722 TST (R2)¢ S INCREMENT AVAILABLE TABLE POINTER 
“9 006642 000731 BR 2$ [LOOK FOR MORE DRIVES 
81 :GET PARAMETERS, BUFFER SPACE, AND START ORDERS FOR DRIVES IN 
HY : THE "AVAILABLE ° QUEUE 
84 006644 005002 MAIN2: CLR R2 :START FROM THE FIRST LOCATION 
85 006646 105737 001542 TSTB —sASNLST SANY DRIVES ACTIVE ? 
86 006652 001030 BNE ‘BR IF YES 
87 006654 105737 001150 TSTB $AUTOB :RUNNING IN AUTO MODE ? 
B8 006660 001023 BNE is iBR IF YES 
89 006662 010737 000001 001334 MGV ;DUMM Y "CONTROL 
90 006670 013737 001312 001346 MOV HEAT? ONESEC SRESTORE ONE Ot GND’ COUNTER VALUE 
006676 005037 001340 CLR [CLEAR THE HOUR'S COUNT 
92 006702 005037 001342 “LR nINUTE [CLEAR THE MINUTE'S LOUNTER 
93 006706 005037 001344 CLR SECOND [CLEAR THE SECOND'S COUNTER 
94 006712 005037 001472 CLR INTRVL#2 [CLEAR INTERVAL COUNTE 
95 006716 013737 001462 001464 m0V LATIN CMPTIMe2 :INIT COMPARE TIME COUNTER 
96 006724 104401 060124 TYPE NODRVS [TYPE "NO DRIVES ASSIGNED' 
44 006730 000137 031744 1$: JMP $GET4 ‘GIVE CONTROL TO MONITOR 
99 006734 005762 001632 2$: "ST WALT(R2) ZANY DRIVES WAITING FOR THE BUFFER ? 
100 006740 001435 8E0 :BR 
101 006742 016200 001632 MOV WAIT(R2),RO SLOAD RO WITH THE DPB ADDRESS 
108 006746 005046 CLR -(SP) [CLEAR THE STACK FOR BUFFER REQ 
103 006750 004737 017512 JSR PC, GETBUF CAL " TO GET THE BUFFER RT. 
104 006754 012660 000006 MOV (SP)+,$BUF (RG) IF O,BUFFER IS STILL NOT AVAILABLE 
105 006760 00142 BEQ 4$ ‘BRANCH IF NO BUFFER AVAILABLE 
106 006762 005060 000130 CLR $NEXT(RO) TCLEAR PARAMETER SELECT FLAG 
107 006766 005060 000116 CLR $FAIR(RO) [CLEAR THE FAIR FLAG 
109 006772 004737 020102 JSR PCF ILBUF sFILL THE BUFFER 
110 006776 004737 020160 JSR PC; GODRIV *SET COMMAND AND GO 


H 
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MAIN PROGRAM 


111 007002 012705 001520 MOV #ORDERO,RS :PUT THE WAIT QUE INTO ORDER QUE 

1 907006 O8¢28 3$: 1ST (R5)¢4 SQUE AVAILABLE ? 

113 007010 0013 § BNE 3$ “BR IF NO 

114 007012 01004 MOV RO,=(R5) SLOAD THE DPB ADDRESS INTO THE ORDER QUE 
115 007014 012701 001632 MOV MWALT,RI SREMOVE THE DRIVE FROM THE ‘WAIT QuE 
116 997020 960201 ADD R2,R1 ‘OFFSET THE QUE POSITION 

117 007022 004737 022200 JSR PC. CMPRES [COMPRESS THE QUE 

118 9070¢6 b007%¢ BR 2$ ‘BRANCH IF DONE 

119 007030 00572 4$: TST (R2)+ [CHECK THE NEXT QUE 

120 007032 000740 BR 2$ ‘LOOPING BACK 

12¢ 007034 005737 001520 S$: TST ORDER yANY OUTSTANDING ORDERS ? 

128 007040 001975 BNE IDLE [BR IF YES 

125 007042 005002 CLR R2 SCLEAR DRIVE TABLE POINTER 

126 007044 005762 001610 6$: TST AVAIL (R2) sANY DRIVES WAITING FOR PARAMETERS 
127 007050 00100 BNE 7$ SBRANCH IF ANY 

128 007052 000137 007234 JMP IDLE ‘BRANCH IF NONE 

129 007056 016200 001610 7$: MOV AVAIL(R2),RO | :CONTROL BLOCK ADDR IN RO 

130 007062 005760 000130 TST $NEXT(RO) [PARAMETERS BEEN SELECTED ? 

131 007066 001010 BNE 9$ ‘BR IF THEY HAVE 

132 007070 105760 000026 TSTB  $PACK(RO) :"T® COMMAND FOR THIS DRIVE ? 

133 007074 001403 BEQ [BR IF Y 

134 007076 004737 020250 JSR PC,SEQPAR sGET SEQUENTIAL PARAMETERS FOR READ OR WRITE 
135 007102 000404 BR 10§ ‘GET THE BUFFER 

137 007104 004737 020612 8$: JSR PC ,GENPAR 3GO GENERATE THE PARAMETERS 

138 007110 004737 021662 9$: JSR PC,LODPAR SLOAD THE PARAMETERS JUST GENERATED 
140 007114 005046 10$: CLR -(SP) sMAKE ROOM ON THE STACK FOR THE BUFFER ADDR 
141 007116 004737 017512 JSR PC ,GETBUF ;GET BUFFER 

142 007122 012660 000006 MOV (SP)+,$BUF (RO) ;MOVE BUFFER ADDR TO DPB 

143 007126 001416 BEQ 12$ ‘BR IF ‘O° ADDR (NO BUFFER) 

144 007130 004737 020102 JSR PC,F ILBUF sFILL THE BUFFER 

145 007134 005060 000130 CLR $NEXT(RO) [CLEAR PARAMETER SELECT FLAG 

146 007140 005060 000116 CLR $F AIR(RO) [CLEAR THE "FAIRNESS* COUNT 

148 007144 004737 020160 JSR PC,GODRIV :PUT CURRENT DPB IN DRIVER 

149 007150 012705 001520 MOV #ORDERQ,RS sADDRESS OF ORDER QUE IN RS 

150 007154 005725 11$ TST (R5)¢ SEND OF QUE ? 

151 007156 001376 BNE 11$ [BR IF NOT 

152 007160 010045 MOV RO, -(RS) [PUT BLOCK ADDRESS INTO QUE 

193 007162 000416 BR 15$ [CONTINUE LOOKING 

155 007164 005260 000116 12$: INC $FAIR(RO) yINCREMENT THE FAIR COUNT 

156 007170 022760 000003 000116 CMP #3, SFAIRCRO) sTHREE TIMES,BUFFER IS NOT AVAILABLE? 
157 007176 101006 BH! 14 ‘BRANCH IF NOT OVER THREE TIMES 

158 007200 012705 001632 MOV #WAIT,RS *LOAD INTO THE WAIT QUE 

159 007206 00 re 13$: TST (R5)¢ [AN AVAILABLE LOCATION ? 

160 007206 001376 BNE 13$ ‘BRANCH IF NOT 

161 007210 010045 MOV RO, -(R5) [LOAD INTO WAIT QUE 

162 007212 000402 BR 15§ SREMOVE THE DPB FROM AVAILABLE QUE 
164 007214 005722 16$: TST (R2)+ y INCREMENT INDEX 

165 007216 000712 BR 33 *BRANCH BACK TO FIRE NEXT DRIVE 

166 007220 012701 001610 15$: MOV #AVAIL,RI1 S*AVAILABLE' TABLE ADDRESS _ 

167 007224 060201 ADD R2,R1 sFORM ADDRESS OF LAST ENTRY 


1 6 
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MAIN PROGRAM 
168 007226 004737 022200 JSR PC, CMPRES sCOMPRESS THE TABLE 
189 007232 000704 BR 6$ : CONTINUE LOOKING 
4 :WAIT FOR A COMMAND TO FINISH 
138 007234 012701 001520 IDLE: MOV #ORDERG,R1 sADDRESS OF “HE ORDER QUE IN R1 
174 007240 012100 1$: MOV (R1)#,RO :PUT BLOCY DRESS INTO RO 
175 007242 001467 BEQ 7$ ‘BR IF € UF QUE 
176 097244 005760 000016 2$: TST STATUS (RO) [SEE IF VE FINISHED 
177 007250 001775 BEQ 2$ ‘BR IF IVE NOT FINISHED 
178 007252 005741 TST =(R1) ‘BAC! HE QUE POINTER 
179 Co7eo4 010146 MOV R1,<(SP) iS? 4€ QUE ADDRESS 
180 007256 004737 017210 JSR PC‘STATIS : LATE STATISTICS FOR DRIVE IN RO 
181 007262 004737 007472 JSR PC PROCES €SS END OF COMMAND 
186 007266 005037 001336 CLR BADSEC AR THE BAD TRK/SEC ERROR INDICATOR 
183 007272 004737 031372 JSR PC, ABNRML _oEE IF ANY DRIVES HAVE TOO MANY ERRORS 
184 sNOW SEE IF WE ARE AT THE END OF A PASS 
185 007276 122760 177777 000026 CMPB ss #=1,$PACK(RO)  :'wW* COMMAND FOR THIS DRIVE ? 
186 0073046 001434 BFO [BR IF YES 
187 007306 122760 000001 000026 CMPB ss #1, SPACK(RD) :*R* COMMAND FOR THIS DRIVE ? 
188 007314 001430 BEQ 5$ 'BR IF YES 
189 007316 005737 001504 TST ENDING ‘WILL THE EOP BE DETERMINED BY # OF SEEKS ? 
190 007322 001412 BEQ BR I 
191 007324 026037 000040 001450 CMP SRDPAS*2(RO),ENDCON*2 ;1S IT THE EOP BY DATA READ ? 
192 007332 101017 BHI 4$ sBR IF YES 
193 007334 103420 BLO 5$ [BR IF NO 
194 007336 026037 000036 001446 CMP SRDPAS(RO) ,ENDCON :1S IT THE EOP BY DATA READ ? 
195 007344 103414 BLO 5$ BR I 
196 007346 000411 BR 4$ :THIS 1S THE END OF PASS 
198 007350 026037 000050 001454 3$: CMP SSEEKS+2(RO),ENDSEK*+2 ;1S IT THE EOP BY SEEKS ? 
199 007356 101005 BHI 4$ 7BR IF YES 
200 007360 103406 BLO 5$ ‘BR IF NO 
201 007362 026037 000046 101452 CMP $SEEKS(RO) ,ENDSEK ;1S IT THE EOP BY SEEKS ? 
202 007370 10540¢ BLO a :BR I 
203 007372 004737 031420 4$: JSR PC, SEOP “THIS IS THE END OF PASS 
205 007376 012601 5$: MOV (SP)+,R1 sRESTORE THE ORDER TABLE INDEX 
206 007400 012705 001610 MOV #AVAIL,RS ZADDRESS OF THE ‘AVAIL’ TABLE 
207 007404 005725 6$: TST (R5)¢ 71S IT THE END OF THE ‘AVAIL® TABLE ? 
208 007406 001376 BNE 6$ [BR 
209 007410 011145 MOV (R1),-C(R5) sMOVE THE DPB INTO THE ‘AVAIL* TABLE 
210 007412 004737 022200 JSR PC, CMPRES SCOMPRESS THE ORDER QUE 
ii 007416 004737 017646 JSR PC -RELBUF SRESTORE BUFFER 
$18 007422 032777 000004 171524 7$: BIT #SWO02,aSwR sTYPE PERFORMANCE SUMMARY 
214 007430 001016 BNE : N 
219 007432 005737 001314 TST STATIN sTIME TO TYPE THE PERFORMANCE SUMMARY ? 
320 007436 001413 BEQ 8$ ‘BR IF NOT 
21 007440 003037 001314 CLR STATIN [CLEAR THE INDICATOR 
222 007444 005737 001542 TST ASNLST TANY DRIVES ASSIGNED ? 
223 007450 001406 BEQ 8$ 3 : 
224 007452 104401 057107 TYPE »MSGREP sTYPE “/\/\/\/\/-PERFORMANCE REPORT=\/\/\/\/\ 
225 007456 004737 024740 JSR PC,STATPR sTYPE THE SUMMARY 
226 007462 104401 057214 TYPE , TRMREP STYPE "/\/\/\/\/\,. ETC" 
$55 007466 000137 006340 8$: JMP MAIN :CONTINUE THE (OOP 
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MAIN PROGRAM 


sPROCESS THE COMMAND TERMINATION 


1 
: 007472 111037 001320 PROCES: MOVB  (RO),DRVNO sDRIVE NUMBER FOR ANY ERROR MESSAGES 
7 ike bosse0 000016 TST STATUS (RO) ‘SEE IF DRIVER SIGNALED AN ERROR 
8 007502 100447 BMI ERPROC “BR IF ERROR 
9 007504 9 °760 100000 000166 BIT #B1T15,$RPCS1(ROS -SEE IF "SC" SET 
10 007512 601410 BEQ 1$ “BR IF NOT SET 
11 007514 032760 040000 000166 BIT #B1T14,$RPCS1(ROS “SEE IF ‘TRE’ SET 
lg 007522 001037 BNE ERPROC sBR IF SET 
13 007524 032760 040000 000200 BIT #B1T14,$RPDS (RO) “SEE IF ‘ERR’ SET 
1 007532 001033 BNE ERPROC sBR IF SET 
6 :NO ERRORS DETECTED IN REGISTERS, DO SOME CHECKING ANYWAY 
18 007534 004737 013746 1$: JSR PC,CKERR :CHECK ERROR BITS 
19 007540 004737 014046 JSR PC, CKBUS + CHELK BUS ADDRESS & WORD COUNT 
20 007544 032777 000002 171402 BIT #SW01,aSwR : INH git DATA COMPARE (SWO1=1) ? 
21 007552 001 0¢¢ BNE :BR IF 
22 007554 005737 001462 TST CMPTIM :1S COM PARE DATA ALWAYS ON ? 
23 007560 001415 BEQ 4 ‘BR IF YES 
24 007562 023737 001464 001462 CMP CMPTIM*2,CMPTIM : TIME TO COMPARE DATA ? 
25 007570 002413 BLT $ :BR IF N 
26 007572 013746 001462 MOV CMPTIM,=(SP) [GET CURRENT INTERVAL TIME AND 
27 007576 062716 000001 ADD #1, (SP) [ADD ONE M 
28 007602 023726 001464 CMP CMPTIM+2, (SP) + os tite COMPARING DATA ? 
29 007606 002402 BLT ‘BR IF YES 
30 007610 005037 001464 CLR CMPTIM+2 CLEAR INTERVAL TIMER FOR NEXT COMPARE 
31 007614 004737 014132 23: JSR PC,CMPAR sNO ‘DCK* ERROR, BUT COMPARE DATA ANYWAY 
3 007620 000207 3$: RTS PC sRETURN 
$e :COMMAND TERMINATED WITH AN ERROR = PROCESS THE ERROR 
36 007622 032760 000200 000016 ERPROC: BIT #BITO7, $TATUS(RO) :DONE BIT SET ? 

4 007630 001402 BEO ERPRC1 7BR IF NO, ORDER DIDN'T COMPLETE NORMALLY 
és 007632 000137 010206 JMP DONE SPROCESS ERROR WITH DONE’ BIT SET 
48 sPROCESS ORDER COMPLETION WITH ‘ERROR’ & ‘DONE’ NOT SET 
50 007636 ERPRC1: 

51 007636 032760 010000 000016 BIT #81112, $TATUS(RO) :SEE IF DRIVE WAS UNSAFE 
52 007644 001025 BNE PUNSA *BR IF YES 

53 007646 032760 004000 000016 BIT #B1T11, STATUS (ROS >PARITY ERROR OCCURRED 
54 007654 901041 BNE UCPAR -BR IF If DID 

55 007656 032760 002000 000016 BIT B1T10, STATUS (RO) sFATAL PARITY ERROR? 

5é 007664 001044 BNE FALPAR R IF THERE IS ONE 

57 007666 032760 001000 000016 Bit #81109, STATUS (ROS - TIMEOUT? 

58 007674 001066 WTIM -BR IF YES 

59 007676 032760 040002 000016 BIT PB1T14!B1T01, STATUS (RO) “DRIVE WENT OFFLINE ? 

60 007704 001101 BNE OF LIN f 

61 007706 032760 000004 000016 BIT #BIT2 ,STATUS(RO)” -PORT REQUEST TIME OUT ? 
62 007714 001115 BNE PRIIM RIF If DID 

63 007716 000207 RTS PC TERROR. RETURN 

o? DRIVE IS PERSISTENTLY UNSAFE 

67 007720 004737 022214 PUNSAF: JSR PC,LINE1 :PRINT LINE 1 OF ERROR MESSAGE 
68 007724 104414 051355 DISPLY ,EM1 [PERSISTENT DEVICE UNSAFE MESSAGE 
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MAIN PROGRAM 
69 007730 004737 022262 JSR PC,LINE2 :PRINT LINE 2 OF ERROR MESSAGE 
70 007734 004737 0 $e JSR PCL INES SPRINT Line . oF ERROR MESSAGE 
71 007740 004737 023366 JSR PC LINE SPRINT LINE 4 OF THE ERROR MESSAGE 
72 007744 004737 0 bie JSR PC, INCTOT S INCREMENT TOTAL ERROR 
73 007750 004737 0 40 6 JSR PC,LINE? ‘PRINT LINE 7 OF ERROR McSSAGE 
ie 007754 000137 031302 JMP DROP ‘DROP THE DRIVE 
6 JUNCORRECTABLE MASSBUS PARITY ERROR OCCURRED 
78 007760 104401 001203 UCPAR: TYPE »SCRLF :CRoLE 
79 007764 104401 001203 TYPE *SCRLF :CR- 
80 007770 104401 051257 TYPE —EM10 1 PEORRECTABLE PARITY hes a MESSAGE 
81 007774 000406 BR FALPRI ‘FINISH PROCESSING THE ERROR 
8 s"FATAL' MASSBUS PARITY ERROR OCCURRED 
85 007776 104401 001203 FALPAR: TYPE CRLF s CRLF 
86 010002 104401 001203 TYPE *SCRLF + CReLF 
87 010006 104401 051322 TYPE *EM11 : "FATAL PARITY ERROR’ MESSAGE 
89 010012 104401 057616 FALPR1: TYPE ,MSGON :TYPE "ON' 
90 010016 104401 056601 TYPE *ORVMSG :TYPE "DRIVE' 
91 010022 013746 001320 MOV ORVNO,-(SP) t:SAVE DRVNO FOR TYPEOUT 
sz TYPE DRIVE NUMBER 
010026 104403 TYPOS 3:G0_ TYPE--OCTAL ASCII 
010030 002 .BYTE 2 i: TPE 2 DIGIT(S) 
010031 000 “BYTE O ‘SUPPRESS LEADING ZEROS 
92 010032 004737 026122 JSR PC, INCTOT : INCR EMENT TOTAL ERROR COUNT 
93 010036 032777 100000 171110 BIT #SW15,aSwR ZHALT ON ERROR ? 
94 010044 001401 BEQ 1$ R IF NOT 
95 010046 000000 HALT TERROR HALT 
96 010050 000207 1$: RTS PC 
98 :SOFTWARE TIMEOUT OCCURRED 
100 010052 004737 022214 SWIIM: JSR PC,LINE1 :PRINT LINE 1 OF ERROR MESSAGE 
101 010056 104414 051406 DISPLY ,EM1 ‘PRINT THE TIME OUT MESSAGE 
102 010062 004737 022262 PC,LINE [PRINT LINE : OF ERROR MESSAGE 
103 010066 004737 020716 JSR PC,LINE SPRINT LINE 3 OF ERROR MESSAGE 
104 010072 004737 023366 JSR PC,LINES SPRINT LINE 4 OF ERROR MESSAGE 
105 010076 004737 026122 JSR PC; INCTOT ‘INCREMENT TOTAL R COU 
106 010102 004737 024056 JSR PC LINE? :PRINT LINE 7 OF ERROR MESSAGE 
107 010106 000207 RTS PC [RETURN 
++ sDRIVE WENT OFFLINE 
111 010110 004737 022214 OFLIN: JSR PC,LINE1 ;PRINT LINE 1 OF THE ERROR MESSAGE 
112 010114 104414 051460 DISPLY ,€M14 sPRINT OFFLINE MESSAGE 
113 010120 004737 022262 SR PC ,LINE2 [PRINT LINE : OF THE ERROR MESSAGE 
114 010124 004737 022716 JSR PC,LINES SPRINT LINE 3 OF THE ERROR MESSAGE 
115 010130 004757 02 366 JSR PC,LINES [PRINT LINE 4 OF THE ERROR MESSAGE 
116 010134 004737 026122 JSR PC INCTOT S INCREMENT TOTAL ERROR COUNT 
117 010140 004737 024056 JSR PC LINE? ‘PRINT LINE 7 OF THE ERROR MESSAGE 
118 010144 000137 031302 MP DROP *DROP THE DRIVE 
120 sPORT REQUEST TIMEOUT ERROR 
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SEQ 0076 
MAIN PROGRAM 


138 010150 004737 022214 PRTIM: JSR PC AL INET sTYPE LINE 1 OF THE ERROR MESSAGE 

1g 010154 104414 051 03 DISPLY ,€M1 PRINT PORT TIME OUT MESSA 

126 010160 004737 0 36 JSR BC.LINER STYPE LINE 3 OF THE ERROR MESSAGE 
010164 004737 022716 JSR PC,LINE [TYPE LINE 3 OF THE ERROR MESSAGE 
010170 004737 0 366 JSR PC,LINES STYPE LINE 4 OF THE ERROR MESSAGE 

127 010174 004737 026122 JSR PC; INCTOT ‘INCREMENT TOTAL ERROR COUNT 

128 010200 004737 024056 JSR PC,LINE? ‘TYPE LINE 7 OF THE ERROR MESSAGE 

186 010204 000207 RTS PC : RETURN 

\ j :PROCESS ORDER COMPLETION WITH ‘ERROR’ & DONE’ BIT SET 

13 010206 900240 DONE: NOP 

141 010210 032760 000030 000016 1$: BIT #BITO4'BITO3,$TATUS(RO) ; UNSAFE OCCURRED 

142 010216 001402 BEQ :BR IF NOT 

143 010220 000137 013340 JMP UNSAF SREPORT UNSAFE 

145 010224 032760 040000 000202 2$: BIT #B1T14,$RPER1(RO) sSEE IF “UNS* SET 

146 010232 001402 BEQ : 

147 010234 000137 013340 JMP UNSAF SREPORT UNSAFE 

149 010240 032760 000002 000200 3s: BIT #BIT1,SRPDS(RO) ;SEE IF ‘EWN’ SET 

150 010246 001402 BEQ ; 

131 010250 000137 013432 JMP EWNERR SREPORT EARLY WARNING 

12 010254 032760 040000 000176 4$: IT #B1T14,$RPCS2(RO) sIS ‘WCE’ SET ? 

154 010262 001402 BEQ S$ sBRANCH IF NOT SET 

135 010264 000137 011234 JMP WCKER TWRITE CHECK ERROR 

157 010270 032760 040000 000166 5$: BIT #B1T14,$RPCS1(RO) sCHECK "TRE" 

158 010278 001002 BNE 4 ; T 

159 010300 000137 013104 JMP TRFER [PROCESS ‘TRE* 

161 010304 032760 000400 000202 6$: BIT #B1T08,$RPER1 (RO) s"HCRC' SET? 

162 010312 001402 BEQ 7 ; NOT 

163 010314 000137 011624 JMP HCRCER SPROCESS "HCRC’ 

165 010320 032760 000020 000202 7$: BIT #B1T04,$RPER1(RO) SFMT’ SET? 

166 010326 001402 BEQ sBR IF NOT SET 

167 010330 000137 012010 JMP CKFMT *CHECK FORMAT ERROR 

169 010334 032760 000200 000202 8%: BIT #B1T07,$RPER1(RO) s*HCE’ SET? 

170 010342 00140 BEQ 9$ ; OT SET 

171 010344 000137 012172 JMP CKHCE [CHECK "HCE" ERROR 

178 010350 032760 020000 000202 98: BIT #81113, $RPER1(RO) s"OPI' SET? 

174 010356 001402 BEO 10$ sBR IF NOT SET 

175 010360 000137 012460 JMP OPIER SREPORT ‘OPI' 

177 010364 032760 000010 000202 10%: BIT #8113, $RPER1(RO) s*PAR® SET? 

178 010372 001402 BEQ 11$ :BR If NOT SET 

179 010374 000137 012576 JMP PARER SREPORT 'PAR' 

181 010400 032760 000040 000202 11%: BIT #8115, $RPER1(RO) s*wOF* SET? 

182 010406 001402 BEQ 12$ sBR IF NOT SET 

18% 010410 000137 013242 JMP WCFER SREPORT ‘WCF ' 

185 010414 032760 002000 000202 12$:° IT #81110, $RPER1(RO) s"1AE* SET? 
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012670 
004000 
012722 
001000 
002000 


010000 
012562 
000202 
010546 
040000 
100000 
011756 
013204 


000202 


009202 
000200 


000202 


000230 
006230 


13$: 


148: 


15$: 


16$: 


17$: 
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Me -“4MMeMe- “Erne BErn 
vo=- woo V8 v.Ee 


cow »z2w 
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13$ :BR IF NOT SET 
LAEER SREPORT "IAE® 
#B1T11,$RPER1(RO) :"WLE* SET? 
14$ BR _IF NOT SET 
WLEER SREPORT ‘WLE® 
#B1T9,$RPER1(RO) s"AOE’ SET? 

s IF NOT SET 
#81T10,$RPDS(RO) s"LBT’ SET? 
15$ 7BR IF NOT SET 
PC :"AOE’ & "LBT* SET, EXIT 
#81112, $RPER1(RO) :SEE IF "DTE* SET 
16$ BR T 
DTEER [REPORT 'DTE* ERROR 
SRPER1(RO) :SEE IF "DCK" SET 
17$ 7BR IF NOT 
DCKER SPROCESS "DCK’ 
#B1T14, $RPER3(RO) s"SKI" SE 

sBRANCH JF SKI, OCYL SET 
#B1T15,$RPER3(RO) sBAD SPOT 
19$ :BRANCH IF $9 
DRVER ;REPORT ERROR 
SKIER sREPORT SKI ERROR 
PC [EXIT FROM ERROR ANALYSIS 


ROUT. 


SEQ 0077 


N 6 
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sPROCESS DATA ("DCK*) CHECK ERROR 


1 
H 010546 032760 000100 000202 DCKER: BIT WECH,SRPERI1(RO) ;ECH ERROR SET ? 
10 010554 001411 BEOQ i§ : no 
11 010556 022760 010040 000232 CMP #10040, $RPEC1(ROS OTHERWISE RPEC1=10040 
ig 010564 001 9¢4 BNE 2$ SREPORT ECC LOGICAL FAILURE 
1g $1996 $aecie. GBREBE bifmur TEssI FEU ead -"Ece"Untomnee abu 
15 010576 000451 BR $ : 
13 010600 026027 000232 010040 18: CMP SRPEC1(RO) #10040 -1§ POSITION COUNT OVER MAXIMUM ? 
18 010606 11015 BHI sBR IF YES 
19 010610 005760 000232 TST SRPEC1(RO) [POSITION COUNT 0 ? 
20 010614 001410 BEQ :BR IF YE 
21 010616 005760 000234 TST SRPEC2(RO) [VALUE IN PATTERN REGISTER ? 
22 010622 001033 BNE rs 'BR IF YES 
23 010624 004737 022214 JSR PC,LINE1 [TYPE FIRST LINE OF ERROR MESSAGE 
24 010630 104414 053300 DISPLY ,EM47 STYPE "ECC LOGIC ERROR’ 
25 010634 000404 BR t 
26 010636 004737 022214 2$: JSR PC,LINE1 sTYPE FIRST LINE OF ERROR MESSAGE 
27 010642 104414 053140 DISPLY ,EM [TYPE "ECC LOoGi¢ ERROR" 
28 010646 004737 022262 3$: JSR PC,LINE2 [TYPE LINE 2 OF ERROR MESSAGE 
29 010652 004737 026122 JSR PC. INCTOT S INCREMENT TOTAL ERROR COUNT 
30 010656 012737 000003 001324 MOV #3 RETRY SRETRY COUNT 
31 010664 04737 017040 JSR PC, SRETRY sRETRY THE ORDER 
3 010670 000403 BR 4 sRETRY WAS NOT SUCCESSFUL 
3010672 004737 024016 JSR PC,LINE6C [PRINT "CORRECTED ON N RETRY(S)° 
$0 010676 000402 BR St sFINISH THE ERROR REPORT 
2 010700 004737 024024 4$: JSR PC,LINE6D sPRINT “UNCORRECTABLE AFTER N RETRY(S)° 
37 010704 004737 024056 5$: JSR PC. LINE? [TYPE LINE 7 OF ERROR MESSAGE 
38 019710 000207 RTS PC RETURN 
ry ;THE VALUES IN Ye ECC REGISTERS ARE CORRECT, REPORT ‘DCK* ERROR 
42 010712 004737 022214 6$: JSR PC,LINE1 ;PRINT LINE 1 OF ERROR MESSAGE 
43 010716 104414 051560 DISPLY ,EM21 [DATA CHECK ERROR 
4b 010722 7$: 
46 010722 004737 022262 DCKER1: JSR PC,LINE2 ;PRINT LINE 2 OF ERROR MESSAGE 
47 010726 004737 022716 JSR PC. LINES ‘PRINT LINE 3 OF ERROR MESSAGE 
48 010732 004737 023346 JSR PC,LINES sPRINT LINE 4 OF ERROR MESSAGE 
49 010736 004737 016356 JSR PC -PRTIBAD “SEE IF BAD SECTOR TO BE PRINTED 
50 910742 012737 110100 001322 MOV #BIT15'!BIT12'BITD6,MASK ;LOAD ERROR MASK 
51 019750 032760 010000 000202 BIT #B1T12,$RPER1 (RO) “IS IT "DTE* ? 
52 010/56 001012 BNE 2$ “BR IF YES 
53 010760 032760 000100 090202 BIT #81106, $RPER1(ROS sIS IT "ECH’ ? 
54 010766 001403 BEQ 1$ ; N 
55 010770 004737 011174 JSR PC,13$ [COMPARE BAD DATA 
56 010774 000403 BR 2$ 
57 010776 004737 023776 1$: JSR PC LINES sPRINT "SECTOR IS ECC CORRECTABLE® 
58 011002 000460 , Be 108 FINISH THE ERROR REPORT 
9 011004 012737 000012 001324 2%: MOV #10. RETRY SRETRY COUNT 
64 011012 004737 020160 3$: JSR PC,GODRIV ;RETRY 
65 011016 005760 000016 4$: TST STATUS(RO) sTEST FOR DONE 
66 011022 001775 BEQ 4$ ‘BR IF NOT DONE 
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67 011024 190057 BPL 12$ :BR IF NOT ERROR 
68 011026 032760 000200 000016 BIT #BIT7,STATUS(RO) ;SEE IF ORDER TERMINIATED NORMALLY 
69 011034 001006 BNE 5$ :BR IF NOT 
70 011036 0047 026122 JSR PC, INCTOT ‘INCREMENT TOTAL ERROR COUNT 
71 011042 104414 055570 DISPLY ,LINSM : DIFFERENT ERROR DURING RETRY 
ie 011046 000137 007636 JMP ERPRC1 ‘SEE WHICH ERR 
- 74 011052 033760 001322 000202 5$: BIT MASK, $RPER1(RO) ;LOOK AT CURRENT ERROR 
75 011060 001412 BEQ 7$ SBR IF DIFFERENT ERR 
76 011062 032760 010100 000202 BIT #BIT12!BIT6,$RPERI(RO) ;"ECH' OR OTE STILL SET ? 
77 011070 o014¢1 BEO 9$ :BR IF NEITHER SET 
78 011072 1932 7 001325 INCB RETRY +1 : INCREMENT RETRY COUNT 
79 011076 123737 001324 001325 CMPB = RETRY,RETRY+1 :DONE ? 
80 011104 00134 BNE 3$ :BR IF NOT 
91 011106 004737 024274 7$: JSR PC,LINES SPRINT LINE 8 OF ERROR MESSAGE 
92 011112 004737 026026 8$: JSR PC. INCHRD S INCREMENT "HARD® ERROR ou UNT 
93 011116 004737 026122 JSR PC. INCTOT S INCREMENT TOTAL ERROR COUN 
94 011122 004737 024056 JSR PC,LINE? SPRINT LINE 7 OF ERROR MESSAGE 
35 B11 1¢8 004737 016356 JSR PC,PRTBAD sPRINT THE BAD SECTO 
%6 011132 000436 BR 15$ >CLEAN UP AND RETURN. 
98 011134 004737 023776 9$: JSR PC,LINE6 :PRINT "SECTOR IS ECC CORRECTABLE ' 
99 011140 004737 023734 JSR PC.LINESB SPRINT LINE 5B OF THE ERROR MESSAGE 
100 011144 004737 026002 10$: JSR PC. INCSOF i INCREMENT "SOFT' ERROR 
101 011150 004737 015534 JSR PC ECC [CORRECT THE ERROR USING’ eee "AND CHECK IT 
102 011154 000407 BR 13§ ‘COMPARE THE BUFFER 
104 011156 004737 024024 11$: JSR PC, LINE6D ;PRINT *UNCORRECTABLE AFTER N RETRY(S)" 
105 011162 000753 BR 8$ S INCREMENT ERROR COUNT 
107 011164 004737 024010 12$: JSR PC,LINE6A sPRINT eet tee READ Seg 1. AFTER N RETRY(S)° 
108 011170 004737 026002 JSR PC. INCSOF [INCREMENT 'SOFT® ERROR COUNT 
109 011174 012737 000001 001352 13$: MOV #1 FRSTER SSET PROCESSING "DCKER' INDICATOR 
110 011202 004737 014136 JSR PC,CMPARD : OMPARE THE BUFFER 
111 011206 105737 001353 TSTB FRSTER+ sERROR | a —y ? 
112 011212 100406 BMI 15$ ‘BRANCH IF ERR 
113 011214 004737 026122 JSR PC, INCTOT : INCREMENT ORTAL ERROR COUNT 
114 011220 104414 056037 DISPLY ,LIN9G :"DATA COMPARE OK’ MESSAGE 
115 011224 004737 024056 14%: JSR PC LINE? [PRINT LINE 7 OF ERROR MESSAGE 
116 011230 000240 15$: NOP 
117 011232 000207 RTS PC RETURN 
119 ;WRITE CHECK ERROR PROCESSING 
121 011234 032760 100000 000202 wCKER: BIT #BIT1S,SRPER1(RO) ;SEE IF "DCK* SET ALSO 
12 011242 001034 BNE 2$ sBR IF IT IS 
123 011244 004737 022214 JSR PCL INET SPRINT LINE 1 OF ERROR MESSAGE 
124 011250 104414 051664 DISPLY ,EM2 *PRINT WCE & DCK NOT SET 
125 011254 005037 C1322 CLR MA [CLEAR ERROR MASK 
128 0112:9 004737 022262 JSR PCLINE? :PRINT LINE 2 OF ERROR MESSAGE 
011264 004737 0 e716 JSR PC LINE SPRINT LINE 3 OF ERROR MESSAGE 
011270 004737 023366 JSR PC, LINES SPRINT LINE & OF ERROR MESSAGE 
011274 004737 023456 JSR PC, LINES SPRINT LINE 5 OF ERROR MESSAG 
129 011300 004737 026 12¢ JSR pC. INC TOT [INCREMENT TOTAL ERROR COUNT 
130 011304 012737 000003 001324 MOV #3. RETRY SRETRY LIMIT 
131 011312 004737 017040 JSR PC; SRETRY SRETRY THE OPERATION 
132 011316 000403 BR 1§ TRETRY UNSUCESSF 
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024016 JSR PC LINE6C :PRINT "CORRECTED ON N RETRY(S)" 
BR 15§ ‘FINISH PROCESSING THE ERROR 
024024 1$: JSR PC,LINE6D ZPRINT "UNCORRECTABLE AFTER N RETRY(S)* 
BR 15§ ‘FINISH PROCESSING THE ERROR 
000012 001324 28: MOV #10. ,RETRY sRETRY LIMIT 
022214 JSR PC, LINE? SPRINT LINE 1. OF ERROR MESSAGE 
051611 011474 MOV #EMO2 BS “ASSUME THAT EM22 WILL RE PRINTED 
040000 000176 BIT WBITIZ,$RPCS2(ROS DID ‘WCK* ALSO SET ? 
BNE 3$ sBR IF IT DID 
052512 011474 MOV #EM37,8S {MESSAGE FOR "OCK" AND "WCK' NOT DURING 
000100 000202 3s: BIT WECH,SRPERI(RO) :WRITE CHECK ERROR WITH , ECH SET ? 
BEQ 4 “BRANCH IF NOT 
053456 011474 MOV #EMS2 8S “REPORT "ECH’ ERROR 
010040 000232 CMP #10046, $RPEC1(ROS -OTHERWISE RPEC1=10040 
BNC 5$ ;REPORT ECC LOGICAL FAILURE 
BR 7$ 
000232 010040 4$: cup SRPECI (ROD .#10040 yids POSITION COUNT OVER MAXIMUM ? 
000232 ist $RPEC1(RO) iPOSITION COUNT 0 ? 
000234 . st $RPEC2 (RO) i VALUE IN PATTERN REGISTER ? 
053300 011474 MoV #EMG7 BS TELSE, REPORT THE ECC LOGIC FAILURE 
053140 011474 5$: MOV #EM45,8$ ZELSE, REPORT THE ECC LOGIC FAILURE 
000003 001324 6$: MOV #3,RETRY SRETRY LIMIT 
7$: DISPLY ;TYPE THE ERROR MESSAGE 
8$: .WORD 0 SMESSAGE ADDRESS GOES HERE 
022262 JSR PC,LINE2 SPRINT LINE 2 OF ERROR MESSAGE 
022716 JSR PC;LINES :PRINT LINE 3 OF ERROR MESSAGE 
023366 U5 PC LINES [PRINT LINE & OF ERROR MESSAGE 
023456 JSR PC LINES [PRINT LINE 5 OF ERROR MESSAGE 
020160 9$: JSR PC,GODRIV ZRETRY THE ORDER 
000016 108: TST STATUS CRUD SORDFR FINISHED ? 
BEQ 10$ ‘BR IF NOT 
BMI! 11$ [BR IF ERROR ON ORDER 
001325 INCB—s RETRY#1 S INCREMENT RETRY COUNT 
024016 JSR PC .LINE6C SPRINT "CORRECTED ON N RETRY(S)° 
BR 13§ [FINISH ERROR PROCESSING 
001325 11$: INCB—s RETRY#1 s INCREMENT RETRY COUNT 
001324 001325 CMPB =s RETRY,RETRY*1 :DONE ? 
BEQ 1$ “BR IF AT RETRY LIMIT 
100000 000202 BIT #BITIS,SRPERI(ROS ;"DCK’ SET 
BEQ 12$ ;BR'IF NOT = DIFFERENT ERROR 
BR 9$ [CONTINUE RETRY 
024274 12$: gsr PC LINES sPRINT LINE 8 = “DIFFERENT ERROR ° 


026002 13$: JSR PC, INCSOF COUNT AS A SOFT ERROR 
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203 011604 
204 
205 011606 
206 011612 
207 011616 
208 011622 
209 
210 
211 
217 Ot 16¢s 
219 011650 
220 011634 
221 011640 
$56 011644 
225 011650 
224 011654 
225 011660 
226 011664 
227 011672 
228 011674 
229 011700 
230 011704 
231 011710 
252 011716 
2335 011724 
234 011730 
235 011732 
236 0117356 
237 011742 
238 011744 
239 011750 
240 011754 
241 
242 
243 
244 011756 
245 011762 
246 011766 
247 011772 
248 011776 
249 012002 
250 012006 
$2) 
358 
254 012010 
$2? Biggie 
56 012020 
257 012024 
$28 Osos 
59 012034 
$6 012042 
4) 012044 
Sea 012050 
270 Bisoee 
271 012060 
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000400 
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6 
000400 
012750 


084743 
022262 


000176 


000202 


050710 


BR 15$ 
14$: JSR PC, INCHRD 
15$: JSR PC, INCTOT 
JSR PC,LINE? 
RTS PC 


sREPORT ‘HCRC' ERROR 


sEXIT 


;COUNT AS_A_HARD ERROR 

; INCREMENT TOTAL ERROR COUNT 
sFINISH THE ERROR MESSAGE 

; RETURN 


° 


HCRCER: JSR PC,READDR sREAD ERROR SECTOR HEADER 
JSR PC .READHD 'GET THE HEAD INFORMATION 
JSR PC ALINE! SPRINT LINE 1 OF ERROR MESSAGE 
DISPLY ,&M20 SREPORT *HCRC' 
JSR PC. LINE? SPRINT LINE : OF ERROR MESSAGE 
JSR PC LINE [PRINT LINE 3 OF ERROR MESSAGE 
JSR PC LINES ‘PRINT LINE & OF ERROR MESSAGE 
JSR PC LINESA “PRINT THE HEADER INFORMATION 
git wBITI4,$RPCS2(RO) WCE” ERROR ALSO ? 
JSR PC,LINES :DISPLAY WORDS WHICH CAUSED ‘wCE' 
1$: JSR PC, INCSOF SINCREMENT 'SOFT' ERROR COUNT 
JSR PC. INCTOT ‘INCREMENT TOTAL ERROR COUNT 
OV #6118, MASK [SET ERROR MASK 
MOV #3, RETRY SRETRY LIMIT 
JSR PC SRETRY SRETRY ORDER 
BR 2$ SRETRY NOT SUCESSFUL 
JSR PC,LINE6C ‘PRINT "CORRECTED ON N RETRY(S)° 
JSR PC .LINE? :PRINT LINE 7 OF ERROR MESSAGE 
2s: JSR PC,LINE6D [PRINT "UNCORRECTABLE AFTER N RETRY(S)' 
JSR PCLINE? [PRINT LINE 7 OF ERROR MESSAGE 
3$: RTS PC SRETURN 
:REPORT DRIVE ERROR 
DRVER: JSR PC, LINE? ;PRINT LINE 1 OF ERROR MESSAGE 
DISPLY ,&M30 TREPORT DRIVE ERROR 
JSR PC,LINE2 :PRINT LINE 7 OF ERROR MESSAGE 
JSR PC LINES SPRINT LINE 3 OF ERROR MESSAGE 
JSR PC, INCTOT S INCREMENT TOTAL ERROR COUNT 
JSR PC,LINE? ‘PRINT LINE 7 OF ERROR MESSAGE 
RTS PC RETURN 
;PROCESS FORMAT ("FER") ERROR 
CKFMT: BIT #BITB,SRPERI(RO) ;"HCRC* SET ON ORIGINAL ERROR ? 
BEQ 1$ :6r IF NOT SET 
JMP HCRCER SREPORT HCRC ERROR 
1$: JSR PC ,READOR SGET CORRECTED TRACK & SECTOR ADDRSSES 
JSR PC RE ADHD "READ HEADER 
BIT WB{TS,GENREG+RPER1 ;*HCRC' SET WHEN HEADER READ? 
BNE sBR'IF "HCR T 
JMP FMTER [NO, ERROR IS *FMT® ONLY 
28: JSR PC, LINE1 sPRINT LINE 1 OF ERROR MESSAGE 
DISPLY ,EM24 SHEADER READ ERROR = FMT BIT DROPPED UP 
JSR PC .LINE2 [PRINT LINE 2 OF ERROR MESSAGE 


SEQ 0081 


SEQ 0082 
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CZRJOAQ RP RPO? PERF EXER MACRO V04.00 1-JAN-83 12:06:52 PAGE 15-5 SEQ 0083 

334 012404 000207 6$: RTS pr ; RETURN 

239 REPORT POSSIBLE POSITIONING ERROR 

338 012406 004737 022214 POSER: JSR PC,LINE1 :PRINT LINE 1 OF ERROR MESSAGE 
339 012412 104414 053413 DISPLY ,EM ‘PROGRAM DETECTED POSITIONING ERROR 
340 012416 004737 022262 JSR PC ,LINE SPRINT LINE ; OF ERROR MESSAGE 
341 012422 004737 026744 JSR PC LINE 3C [PRINT LINE 3C OF ERROR MESSAGE 
342 012426 012637 063324 MOV (SP)+,CYLNDR  :;POP STACK INTO Cy CYLNDR 

343 012432 004737 023666 JSR PC,LINESA SPRINT LINE 5A OF THE ERROR ME SSAGE 
344 012436 004737 026076 JSR C; INCMIS S INCREMENT MISPOSITIONING COUN 

$02 Bi stee 004737 bs6iee JSR PC, INCTOT fy te geld T May ERROR COUN 

46 012446 004737 024176 JSR PC;LINE7A [PRINT LINE 7A OF ERROR MESSAGE 
347 012452 004737 016630 JSR PC -RECALT SRECALI 

348 012456 000207 RTS PC EXIT 
329 :REPORT "OPI" ERROR 
357 012460 004737 022214 OPIER: JSR PCALINE ;PRINT LINE 1 OF ERROR MESSAGE 
359 012464 104414 052206 DISPLY ,EM31 :*OPI' ERROR 

360 012470 004737 022262 JSR PC,LINE2 ‘PRINT LINE 2 OF ERROR MESSAGE 
361 012474 004737 022716 JSR PC,LINES sPRINT LINE OF ERROR MESSAGE 
362 012500 004737 023366 JSR PC, LINES SPRINT LINE & OF ERROR MESSAGE 
363 912504 004737 026002 JSR PC, INCSOF sCOUNT ‘‘OPI'’ AS me at DATA ERROR 
364 :SEPT. 26 ADDED FOR RPO7 

365 012510 004737 026122 JSR PC, INCTOT s INCREMENT TOTAL oR ROR COUNT 

366 012514 012737 020000 001322 MOV #BIT13,MA TERROR MASK 

367 012522 012737 000003 0ui324 OPIER1: MOV #3, RETRY SRETRY LIMIT 

368 012530 004737 017040 JSR PC, SRETRY sRETRY THE ttn 

369 012534 000405 BR 1$ SRETRY UNSUCESS 

370 012536 004737 024016 JSR PC,LINE6C [PRINT WCORRECTED. ON N RETRY(S)° 
371 012542 004737 024056 JSR PC,LINE? sPRINT LINE 7 OF ERROR MESSAGE 
372 012546 000207 RTS PC TEXIT 
373 012550 004737 024024 1$: JSR PC,LINE6D sPRINT “UNCORRECTABLE AFTER N RETRY(S)* 
374 012554 004737 024056 JSR PC,LINE? sPRINT LINE 7 OF ERROR MESSAGE 
375 012560 000207 RTS PC SRETURN 
HAG sREPORT ‘DTE* ERROR 
385 012562 004737 022214 DIEER: JSR PC,LINE1 ;PRINT LINE 1 OF ERROR MESSAGE 
387 012566 104414 052251 DISPLY ,EM32 :"DTE’ E 

388 012572 000137 010722 JMP OCKER1 [FINISH PROCESSING THE "DTE* ERROR 
be sREPORT ‘PAR ERROR 

92 012576 004737 022214 PARER: JSR PC,LINE1 :PRINT pHINe. 1 OF ERROR MESSAGE 
393 012602 104414 052304 DISPLY ,EM TREPORT 

394 012606 004737 020262 SR BC. LINE? SPRINT LINE 3 OF ERROR MESSAGE 
395 012612 004737 023022 JSR PC LINE 3E :PRINT LINE E oof ERROR MESSAGE 
396 012616 004737 023366 JSR PC, LINE [PRINT F ERROR MESSAGE 
397 012622 004737 026122 JSR PC. INCTOT EINCRERENT 1OTAe ERROR COUNT 

398 012626 012737 000010 001322 MOV api tos MASK TERROR 

399 0126 012737 000003 001324 MOV #3,RETRY SRETRY eAtT 
400 012642 004737 017040 JSR PC SRETRY SRETRY ORDER 

401 01 646 900405 BR 2$ SRETRY UNSUCESSFUL 

402 012650 004737 024016 JSR PC,LINE6C “PRINT "CORRECTED ON N RETRY(S)* 
403 012654 004737 024056 1$: JSR PC LINE? RINT LINE 7 OF ERROR MESSAGE 


CZRJOAO RPO? PERF EXER MACRO V04.00 1-JAN-83 12:06:52 PAGE 15-6 SEQ 0084 

MAIN PROGRA | 
404 012660 000207 RTS PC ZEXIT 
405 012662 004737 924024 2$: JSR PC,LINE6D sPRINT “UNCORRECTABLE AFTER N RETRY(S)° 
406 012666 000772 BR 1§ ‘FINISH ERROR MESSAGE 
tbe sREPORT ‘IAE* ERROR 
410 012670 004737 022214 IAEER: JSR PC ALINE! ;PRINT LINE 1 OF ERROR MESSAGE 
411 012674 104414 052423 DISPLY ,EM ;REPORT ‘IAE* 
tig 012700 004737 022262 JSR pe tines sPRINT LINE OF ERROR MESSAGE 
413 012704 004737 023110 JSR PC,LINE SF sPRINT LINE SF OF ERROR se 
414 012710 004737 026122 JSR PC, INCTOT s INCREMENT TOTAL ERROR COUN 
415 012714 004737 024056 JSR PC,LINE? ;PRINT i 7 OF ERROR BOO eAGE 
oi3 012720 000207 RTS PC ‘RETURN 
rt REPORT "WLE* ERROR 
420 012722 004737 022214 WLEER: JSR ar cab {NET sPRINT rite 1 OF ERROR MESSAGE 
421 012726 104414 052461 DISPLY ‘REPORT ‘WLE' 
422 012732 004737 022262 JSP BET INE? ‘PRINT LINE 2 OF ERROR MESSAGE 
423 012736 004737 026122 JSR PC, INCTOT <NCREMENT TOTAL ERROR COUNT 
424 012742 004737 024056 JSR PC, "LINE? ‘PRINT LINE 7 OF ERROR MESSAGE 
43s 012746 000207 RTS PC eRETURN’ 
ret sREPORT FORMAT ERROR 
429 012750 004737 022214 FMTER: JSR PC,LINE1 sPRINT LINE 1 OF ERROR MESSAGE 
430 012754 104414 052072 DISPLY E26 ;FORMAT ERROR 
431 012760 004737 022262 - JSR PC,LINE2 sPRINT LINE 2 OF ERROR MESSAGE 
432 012764 004737 022716 JSR PC,LINE3S dat | LINE 3 OF ERROR MESSAGE 
433 012770 004737 023366 JSR PC,LINE4S PRIN LINE : - ERROR MESSAGE 
434 012774 032760 040000 000176 BIT #BiT14,$RPCS2(RO) ruck: ERROR ALSO ? 
435 013002 001402 BEQ 1$ :BR’ IF NOT 
436 013004 004737 023456 JSR PC,LINES ‘DISPLAY WORDS WHICH CAUSED ‘wCE°* 
437 013010 004737 023666 1$: JSR PC,LINESA *PR INT LINE 5A OF ERROR a 
438 013014 004737 026122 JSR PC, INCTOT : INCREMENT TOTAL ERROR COUN 
439 013020 004737 024056 JSR PC LINE? :PRINT LINE 7 OF ERROR ACS SAGE 
440 013024 000207 RTS PC 
442 ZREPORT HEADER COMPARE ERROR 
444 013026 004737 022214 HCEER: JSR PC,LINE1 ;PRINT LINE 1 OF ERROR MESSAGE 
445 013032 104414 052117 DISPLY EM27 sHEADER COMPARE ERROR 
446 013036 004737 022262 JSR PCL INES [PRINT LINE Q OF ERROR MESSAGE 
447 aE 9k sot Oe ere JSR ate sPRINT LINE OF ERROR MESSAGE 
448 013046 004737 023366 JSR LINES sPRINT LINE 4 OF ERROR MESSAGE 
449 013052 032760 044000 000176 BIT apitt4,snecs2cnos s*WCE' ERROR ALSO ? 
450 013060 001402 BEQ 1$ :BR'IF NOT 
451 013062 00473 027456 JSR PC,LINES sDISPLAY WORDS WHICH CAUSED ‘wCeE’ 
$26 013066 004737 023566 1$ JSR PC,LINESA sPRINT LINE SA OF ERROR MESSAGE 
453 013072 004737 026122 JSR PC, INCTOT s INCREMENT TOTAL ERROR COUNT 
454 013076 004737 024056 JSR PC,LINE?7 a i LINE 7 OF ERROR MESSAGE 
$2? 013102 000207 RTS PC ;RETURN 
43? ZPROCESS CONTROL/INTERFACE TRANSFER ERROR 
459 013104 004737 022214 TRFER: JSR PC,LINE1 ;PRINT LINE 1 OF ERROR MESSAGE 
460 013110 104414 052564 DISPLY ,EM4O sRHXX OR UNIBUS TRANSFER ERROR 


H 7 
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MAIN PROGRAM 

461 013114 004737 022262 JSR PC,LINE :PRINT LINE 2 OF ERROR MESSAGE 

462 013120 004737 0 ats JSR Peet INES SPRINT LINE 5 OF ERROR MESSAGE 

465 013124 004737 025366 JSR PC,LINES :PRINT LINE 4 OF ERROR MESSAGE 

464 013130 004737 026122 JSR PC, INCTOT TH et TOTAL E ROR COUNT 

465 013134 032760 121400 000176 BIT #BITIS'BITI3!BITS'BITS,S$RPCS2(RO) ;'DLT',"UPE’,"MXF", "MDPE" SET ? 

466 013142 001415 BEQ 2$ :BR IF NONE SET 

467 013144 Hh 34 7 600003 001324 MOV #3, RETRY sRETRY LIMIT 

468 013152 005037 001 22 CLR MASK [CLEAR ERROR MASK 

469 013156 004737 01704 JSR PC, $RETRY SRETRY THE OPERATIO 

470 013162 000403 BR 1$ sRETURN HERE IF RETRY UNSUCESSFUL 

471 013164 004737 024016 JSR PC,LINE6C sPRINT ‘CORRECTED ON N - steal 

rhe bi 3179 best BR 2s. sFINISH THE ERROR REPORT 

473 013172 00473 024024 1$: JSR 4% Liege sPRINT "UNCORRECTABLE AFTER N RETRY(S)° 

474 013176 004737 024056 2$: JSR PoLIN E7 ;PRINT LINE 7 OF ERROR MESSAGE 

479 013202 000207 RTS P¢ 

rtf PROCESS "SKI" ERRORS 

479 013204 004737 022214 SKIER: JSR PC,LINE1 sPRINT LINE 1 OF ERROR MESSAGE 

480 013210 104414 053355 DISPLY ,€M5O 3"SKI* ERROR 

481 013214 004737 022262 JSR C,LINE2 sPRINT LINE 2 OF ERROR MESSAGE 

482 013220 004737 022732 JSR PC,LINE3B sPRINT LINE 38 OF ERROR MESSAGE 

483 013224 004737 026122 JSR PC, INCTOT s INCREMENT TOTAL ERROR COUNT 

484 013230 004737 026052 JSR PC, INCSKI s INCREMENT ‘SKI® OR ‘OCYL’ ERROR COUNT 

485 013234 004737 024176 JSR PC, *LINE7A sPRINT LINE 7A OF ERROR MESSAGE 

486 013240 000207 RTS PC 

rt +4 sREPORT WRIRE CLOCK FAILURE (‘WCF*) 

490 013242 006737 022214 WCFER: JSR PC,LINE1 sPRINT LINE 1 OF gr MESSAGE 

491 013246 104414 052361 DISPLY ,EM34 sREPORT WRITE CLOCK FAILURE 

492 013252 004737 022262 JSR PC,LINE2 SPRINT LINE 2 OF ERROR MESSAG 

493 013256 004737 022724 JSR PC,LINE3A sPRINT LINE OF ERROR MESSAGE 

494 013262 004737 023366 JSR PC,LINE4S sPRINT LINE ERROR MESSAGE 

495 013266 004737 026122 JSR PC, INCTOT J ge go TOTAL ERROR COUNT 

496 013272 004737 016356 JSR PC,PRTBAD sSEE IF BAD ue TO BE PRINTED 

497 013276 012737 000003 001324 MOV #3.RETRY ‘RETRY COUNT 

498 013304 012737 000040 001322 MOV #B1T05, MASK TERROR MASK 

499 013312 004737 017040 JSR PC, SRETRY SRETRY THE O 

500 013316 000405 BR 2$ ‘RETURN HERE tis RETRY UNSUCE SSF UL 

501 013320 004737 024016 JSR 4% LINE6C sPRINT ‘CORRECTED ON N RETRY(S)' 

206 SES 004737 024056 1$: JSR LINE? ‘PRINT LINE 7 OF ERROR MESSAGE 

503 013330 000207 RTS 

504 Ot esas 004737 024024 23: JSR PC,LINE6D sPRINT “UNCORRECTABLE AFTER N RETRY(S)' 

205 013336 000772 BR 1$ 

rh PROCESS DRIVE UNSAFE ERROR 

509 013340 004737 begets UNSAF: JSR PC,LINE1 sPRINT LINE 1 A site MESSAGE 

510 013344 104414 05 6 DISPLY SREPORT DRIVE UNSAFE 

511 013350 sof 05599 JSR BC.LINEG PRINT LINE OF SO RBOR MESSAGE 

216 013354 004737 022716 JSR PC,LINE LINE OF ERROR MESSAGE 

51 aE 4 004737 026122 JSR PC, INCTOT ETNCREMEN! TOTAL ERROR COUNT 

514 013364 012737 040000 001322 MOV abi tie mask *RETR? MASK 

518 013372 012737 000003 001324 MOV RETRY SRETR Y COUNT 

516 013400 004737 017040 JSR PC ,SRETRY *RETRY T HE ORDER 

517 013404 000403 BR 1$° TRETRY WAS UNSUCESSFUL 
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013562 
564 013566 
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56@ 015604 
569 013610 
570 013614 
571 013616 
276 013622 
57 Bt se68 
574 013632 
575 013636 
576 013640 
577 013642 
578 013646 
579 013652 
580 015656 
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024024 


14 
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JSR PC, LINE6C 


BR 

1$: JSR PC,LINE6D 
JMP DROP 

2$: JSR PC,LINE7 
RTS PC 


REPORT EARLY WARNING ERROR 


EWNERR: SR PC,LINE1 
BIT #B1T1,$RPER3(RO) 
BEQ 1 :BR 
DISPLY ,EM70 
BR $$ : 
1$ BIT #BIT2,$RPER3(RO) 
BEQ 2$ 
DISPLY ,EM71 
BR $$ 
2$ DISPLY  JEM72 
3$ JSR PC,LINE2 
JSR PC, LINES 
#7 


N 
JSR PC, INCTOT 
»MASK 
MOV #3, RETRY 
a oo 
JSR PCL INEGC 


4$: JSR PC,LINE6D 
DROP 


sPRINT “CORRECTED ON N RETRY(S)° 
sCONTINUE WITH ERROR REPORT 

sPRINT "UNCORRECTABLE AFTER N RETRY(S)" 
DROP UNSAFE DRIVE 


PRINT LINE 7 OF ERROR MESSAGE 
; RETURN 


:SKIP LINES 

uj PE SET? 

‘PRINT TEMPERATURE WARNING ERROR 

: TYPE REMAINING ERROR MESSAGE 
pair" SET? 

"AIR SYSTEM WARNING ERROR’ 


; "EARLY WARNING ERROR,AIR TPE NOT SET’ 
sERROR MESSAGE 


PRINT OUT 

; INCREMENT TOTAL ERROR COUNT 
ROR MASK 

: E ORDER 

sRETRY UNSUCESSFUL RETURN 

etd iy "CORRECTED ON N RETRY(S)° 


zDROP DRIVE 


:REPORT AN "UNKNOWN’ DATA PATTERN 
[R1 = POINTER FIRST WORD OF DATA BUFFER 


NOMTCH: TST CFLAG 
BNE 5$ 

1$: TSTB  ——-FRSTER 
BNE 2$ 
JSR PC,LINE1 
DISPLY ,€M43 
JSR PC,LINE 
JSR PC-LINE3A 
JSR PC LINES 
BR 3$ 

2$ DISPLY \EM43 
DISPLY ores 

3$: DISPLY ‘LINSI 

4$: TST CFLAG 
NE 5$ 


JSR PC, $SBeD 


WAS (*C) TYPED? 


:BR_IF YES 

sFIRST ERROR IN THE SECTOR ? 

3;BR_IF NOT OR IF PROCESSING ‘DCKER* 
ROR MESSAG 


TYPE LINE 1 OF ERROR MESSAGE 
3°CAN'T MATCH DATA WITH PATTERN’ 
PRINT LINE ¢ F ERROR MESSAGE 
sPRINT LINE 5A OF ERROR MESSAGE 
PRINT LINE 4 OF ERROR MESSAGE 
CONTINUE PROCESSING ERROR 
Pony MATCH DATA WITH PATTERN’ 
2 CRL 

sHEADER FOR DATA PRINTOUT 

WAS (*C) TYPED? 

BR IF YES 


BR 
sADDRESS OF WORD POSITION 
sTYPE WORD NUMBER 

;INC WORD POSITION 

;PUT THE WORD POS ON THE STACK 
sCONVERT IT TO DECIMAL 


mn 


SEQ 0086 


581 013662 
286 013666 
5835 013670 
584 013674 
585 015700 
586 013702 
587 013706 
588 013712 
589 013720 
590 013722 
591 013726 
ra Oreo 
93 013736 
594 013744 
595 
596 
597 
598 013746 
599 013754 
600 013756 
601 013764 
602 013766 
603 013772 
604 013774 
605 014000 
606 
607 014002 
608 014006 
609 
610 014010 
611 014014 
612 014020 
613 014024 
614 014030 
615 014034 
616 014040 
617 014044 
618 
619 
620 
621 014046 
622 014052 
623 014054 
624 014060 
625 014062 
626 014066 
627 014072 
628 014074 
629 014100 
630 014104 
631 014110 
632 014114 
633 014120 
634 at: 
635 014130 
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000416 
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032662 


057711 
056530 


02430 
00120 
001374 
000770 


177777 
001460 


060000 
177400 
000202 
000230 


000226 


ooooooed 
MonsPonorvuity 
LPOownnrwiyu 
O-WNNO.YU 
VINA AS — 
AIA IWE 


000166 
000176 


ACE LEADING ZEROS) 


3A TA WORD 
: TYPE 

CROLL 

;DONE ALL WORDS ? 

;BR IF N 


S INCREMENT BUFFER POINTER = 4 MATCHING WORDS 
“CLEAR ‘WORDS TO COMPARE’ COUNT IN R2 
:SET ERROR FOUN 


P INDICATOR 
RESET THE COMPARE ERROR TYPEOUT LIMIT 
RETURN 


sSEE_ IF ig OO *"MCPE® SET 


“BRI R SE 
#177400, $RPCS2(RO) iSEE IF ERROR BITS IN CS2 SET 


3 YS 
;ANY BITS SET IN ER1 
;BR IF ANY SET 

ANY BITS SET IN ER3 ? 
3;BR IF YES 

zsANY BIT SET IN ER2 
;BR IF NO 


;PRINT LINE 1 OF ERROR MESSAGE 

sERROR BITS SET, BUT NO ERROR BITS SET 
sPRINT LINE 2 OF ERROR MESSAGE 

;PRINT LINE 3 OF ERROR MESSAGE 

sPRINT LINE 4 OF ERROR MESSAGE 

s INCREMENT TOTAL ERROR COUNT 

:PRINT LINE 7 OF ERROR MESSAGE 

;RETURN 


TALI 

T LIN 

EMENT TOTAL ERROR COUNT 
T LINE 7 OF ERROR MESSAGE 


JSR RS, SREPLZ 
-WORD 6 
DISPLY ,PERIOD 
DISPLY ,BLNKS2 
MOV (R1)+,-(SP) 
JSR PC ,LINOCT 
DISPLY ,SCRLF 
CMP WRDPOS ,#3 
BNE 
5$: ADD #<252.%2.>,R1 
CLR R2 
MOV #-1,FRSTER 
MOV CMPLMT,LIMIT 
RTS PC 
sCHECK ERROR BITS IN THE RHXX & RPO7 REGISTERS 
CKERR: BIT #60000, $RPCS1(RO) 
BNE 
BIT 
BNE 
TST SRPER1 (RO) 
BNE 
TST SRPER3(RO) 
BNE 1$ 
TST SRPER2(RO) 
BR 2$ 
1$: JSR PC,LINE1 
DISPLY ,EM44 
JSR PC,LINE2 
JSR PC,LINES 
JSR PC,LINES 
JSR PC, INCTOT 
JSR PC,LINE? 
2$: RTS PC 
sCHECK BUS ADDRESS REGISTER & WORD COUNT REGISTER 
CKBUS: is! SRPWC (RO) 
MOV SWRDL (RO) ,- (SP) 
ASL (SP) 
ADD SBUF (RO), (SP) 
CMP (SP)+,$RPBA(RO) 
BEQ 23 
1$: JSR PC,LINE1 
DISPLY ,EM41 
JSR prot iMee 
JSR PC,LINE 5D 
JSR PC,LINES 
JSR PC, INCTOT 
JSR PC,LINE? 
2$: RTS PC 


SEQ 0087 
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;COMPARE THE BUFFER 


CMPAR: CLR FRSTER 
CMPARD: BITB #4,$CODE(RO) 
BNE 1$ 
RTS PC 
1$: CLR ERCTR 
MOV $BUF (RO),R1 
MOV SWRDL (ROS ,CMCNT 
ADD SRPWC (RO) .CMCNT 
BNE $ 
RTS PC 
2$: MOV SCYL(RO),CMCYL 
BIS #150000, CMCYL 
MOV $SEC (ROS, CMSEC 
MOV CMPLMT,LIMIT 
INC LIM 
CMSTR: MOV #-1,2ROIND 
CLR SAVER 
CLR SAVERS 
CMP CMCNT ,»$SSEC(RO) 
BHI 1$ 
MOV CMCNi ,R2 
CLR CMCN 
BR 2$ 
1$: MOV SSSEC(RO) ,R2 
SUB $SSEC(RO) .CMCNT 
2$: CMPB  —s- $CODE (RU) . #5 
BNE CMDAT 
sCOMPARE HEADER WORDS 
CMHED: MOV #CMCYL,RS 
BIS #150006, (R1) 
CMP (R5)+,(R1)4 
BEQ 
MOV #=1,WRDPOS 
JSR PC, CMSTR2 
1$: CMP (R5)+,(R1)+ 
BEQ 
MOV #-2,WRDPOS 
JSR PC, CMSTR2 
28: SUB #2,R2 
BGT CMOAT 
JMP CMPRX 
CMSTR2: INC ERCTR 
JSR PC, CMPRT 
RTS PC 
;COMPARE DATA FIELD 
CMDAT: MOV #-1,WRDPOS 
JSR PC,MATCH 


CLEAR "FIRST ERROR® AND ‘NO DCK® INDICATOR 
SEE IF READ COMMAND 
3BR IF IT IS 


;CLEAR THE ERROR COUNTER 
; ADDRESS 


[WORD COUNT TO WORKING LOCATION 
[CALCULATE WORDS TRANSFERED 


sEXIT=--NO WORDS XFERED 


ZCYLINDER ADDRESS WORKING LOCATION 
[SET MFG, USER AND FMT BIT 

[SECTOR & TRACK ADDRESSES TO WORKING LOCNS 
“DISPLAY LIMIT 

SCONVERT PARAMETER INTO LIMIT VALUE 

[CLEAR THE "ZERO'S’ INDICATOR 

[CLEAR THE R1 SAVE WORD 

?CLEAR THE RS SAVE WORD 

1s BUFFER SIZE GREATER THAN ONE SECTOR ? 
‘LESS THAN, USE REMAINING BUFFER 

[SET COUNTER TO 0 


sCOMPARE SECTOR 

;DECREMENT WORD COUNT 

READ HEADER & DATA? 

BR IF NOT 

ADDRESS OF COMPARING CYLINDER 

;SET BITS INCASE BAD SECTOR ENCOUNTER 
CHECK CYLINDER 

:BR_ IF COMPARE OK 

INDICATE WORD POSITION IS HEADER WRD 1 
;REPORT ERRO 

COMPARE SECTOR/TRACK 

:BR IF EQ 

INDICATE WORD POSITION IS HEADER WRD 2 
REPORT ERROR 

; SUBTRACT HEADER LENGTH FROM SIZE 


:BR_ IF NOT FINIS 
COMPARE THE DATA PORTION 


; INCREMENT THE ERROR COUNT 
REPORT THE COMPARISON ERROR 
CHECK THE REST OF THE HEADER 


E WORD POSITION 
PATTERN 


SEQ 0088 


. 
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58 0144 0004 BR 1$ FOUND A PATTERN 

59 Ohe32 300737 013554 JSR PC,NOMTCH sRETURN HERE IF NO MATCH WITH PATTERN MADE 
rs 014426 000463 BR 7$ BYPASS COMPARE ROUTINE 

62 014430 011405 1$: MOV (R4),R5 sADDRESS OF PATTERN ADDRESS IN R4 
3 014432 Bier 03 000020 MOV #16. ,R3 3R3_ 1S PATTERN POS COUNTER 

64 014436 005237 001374 2$: INC WRDPOS : INCREMENT TO CURRENT WORD POSITION 
65 014442 022125 CMP (R1)+,(R5)+ ;COMPARE BUFFER WITH PATTERN 

66 014444 001016 BNE 7BR_ IF NOT EQUAL 

67 014446 005737 001362 TST RCTR sERRORS DETECTED ? 

68 014452 001406 BEQ $ :BR IF NO ERRORS 

69 014454 032777 000010 164472 BIT #SW3,aSWR sSWITCH 35 SET ? 

70 014462 001402 BEQ 3BR IF NOT SET 

4 014464 004737 015016 JSR PC, CMPRT DISPLAY THE WORD 

ig 014470 005302 3$: DEC R2 sDECREMENT SIZE COUNT 

74 0144 003441 BLE 7$ 3 HEN AT END 

75 014474 005303 DEC R3 ;DECREMENT PATT POS COUNT 

76 014476 001357 BNE 2$ BR IF NOT AT END OF PATT 

A 014500 000753 BR 1$ RESTART THE PATTERN 

79 014502 005761 177776 4$: TST =2(R1) 31S MISCOMPARED CHARACTER=0 

80 014506 001410 BEQ 5$ :BR_IF YES 

81 014510 012737 177777 001350 MOV #-1,ZROIND SET NON-ZERO MISCOMPARED INDCATOR 
82 014516 005237 001362 INC ERCTR INCREMENT THE ERROR COUNTER 

83 014522 004737 015016 JSR PC, CMPRT REPORT ERROR 

Se 014526 000760 BR 3$ CONTINUE COMPARE 

86 014530 105737 001352 5$: TSTB FRSTER sFIRST ERROR? 

87 014534 100412 BMI 6$ :BR_IF NOT 

88 014536 005037 001350 CLR ZROIND :SET THE ZERO INDICATOR 

89 014542 010137 001356 MOV R1,SAVER1 SAVE CURRENT R1 

90 014546 010537 001360 MOV R5,SAVERS SAVE CURRENT R5 

91 014552 015737 001374 001354 MOV WRDPOS,SAVPOS  ;SAVE CURRENT WORD POSITION 

92 014560 000743 BR 3$ CONTINUE COMPARE 

93 014562 005737 001350 6$: TST ZROIND sANY MISCOMPARIONS NOT ZEROS ? 

94 014566 001740 BEQ 2BR_IF NONE-ALL ERRORS=ZERO 

95 014570 004737 015016 JSR PC,CMPRT REPORT ERROR 

4] 014574 000735 BR 3$ CONTINUE COMPARING 

98 014576 126027 000024 000005 7S: CMPB SCODE (RO) #5 READ HEAD AND DATA ? 

99 014604 001414 BEQ 9$ 7 
100 014606 013702 001366 8$: MOV CMCNT,R2 SET COUNTER = REMAIN BUFFER LENGTH 
101 014612 pues? 000004 _ . CMP R284 :1S THERE AT LEAST 4 WORDS TO MATCH PATTERN ? 
102 014616 002474 BLT CMPRX 3BR IF NO 

103 014620 162737 000400 001366 SUB #256. ,CMCNT GREATER THAN A SECTOR ? 

104 014626 003667 BLE CMDAT 2NO,RETURN TO COMPARE LOOP 

105 014630 012702 000400 MOV #256. ,R2 3SET COUNTER =SECTOR SIZE 

198 014634 000664 BR CMDAT sRETURN TO COMPARE LOOP 
198 014636 023727 001366 000002 9$: CMP CMCNT #2 z1S THERE AT LEAST 2 WORDS TO COMPARE HEADER ? 
109 014644 op eset BLT CMPRX :BR IF NO 

110 014646 1935 7? 001372 INCB CMSEC : INCREMENT COUNTER 

111 014652 123760 001372 000152 CMPB CMSEC,SECLMT(RO) sMAX SECTOR # ? 

ii8 014660 101424 BLOS 10$ 3NO 

113 014662 105037 OO tas CLRB CMSEC sRESET SECTOR # 

114 014666 105257 001357 INCB CMTRK : INCREMENT TRACK @ 
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115 01467 
116 01470 
117 01470 
118 014706 
119 014712 
120 014716 
121 014722 
\s¢ 014726 
123 014750 
ise 
125 014732 
126 oie 78 
127 01474 
128 014744 
129 014746 
130 014754 
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132 014762 
133 014764 
134 014772 
135 
136 014776 
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138 015006 
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015040 
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170 015072 
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172 015102 
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015112 
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176 
177 015124 
178 015130 
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001373 


177776 
014374 


000002 


015376 


001356 


015124 
015206 


Oooooooooeo 
ooo——-o00o°O 
ed I et tt 
WAI Ww 
NOMONMMIOOUs 
SOCAL LOS 


015206 


001352 


000154 


001374 


001374 


001366 


001374 


10$: 


11$: 


12$: 


CMPRX: 


ry ey 
<< 
rx 


=(SP) 


—AVRE—ABR OR BQOOO--O 


PC,ENDCMP 
Pc 


TYPE DATA COMPARE ERRORS 


CMPRT: 


1$: 


2%: 


3$: 
4$: 


NOP 


R5,R RS 
SAVPOS ,uROPOS 


pg ag ty 4 wv onNum 


FRSTER 
9$ 
5$ 


RK, TRKLMT (RO) 


0, (SP) 
P)+,CYLLMT(RO)- 


3MAX TRACK @ ? 


:NO 
;RESET TRACK 
; INCREMENT CYLINDER NUMBER 
Get COMPARING CYLINDER 
AVE ~ hs CYLINDER BITS 
LAST CYLINDER ? 


3NO 
;NORMAL RETURN,NOT WRAP AROUND 
sponte OF COMPARING CYLINDER 


:SET BITS IN 
: COMPARE 1ST HEADER WORD 


INDICATE | WORD POSITION IS HEADER WRD 1 


sNOT 
3 SECOND WORD OF HEADER 


ADJUST WORD COUNT 
:COMPARE IS DONE 
;RETURN TO COMPARE LOOP 


sPRINT LAST LINE IF ERRORS 


3PRINT ee VALUES ? 


BR IF Y 
PRINT INITIAL MESSAGE INFO 
:PRINT REMAINDER OF MESSAGE 


+ 3PUSH R1 oe Hey 
33PUSH R5 0 


2D Y SAVED R5 

PRINT | SAVED WORD POSITION 
PRINT INITIAL aut INFO 
PRINT SAVED VALUES 

CLE AR SAVED REGISTER INDICATORS 

3CL OTHER ONE 


CK INT 
:BRINT REMAINDER OF MESSAGE 


sFIRST ERROR ? 


7BR IF NOT 
7BR IF FIRST ERROR AND PROCESSING ‘DCK® ERROR, 


CASE BAD SECTOR ENCOUNTER 


MA 
:INDICATE WORD POSITION IS HEADER WRD 2 


SEQ 0090 


N 
CZRJOAO RPO? PERF EXER MACRO V04.00 1-JAN-83 12:06:52 PAGE 16-3 SEQ 0091 
MAIN PROGRAM 


180 sELSE, FIRST ERROR AND COMPARE ERROR W/O ‘DCK’ 
181 O1317 004737 be 214 JSR Peat ime *PRINT LINE 1 OF ERROR MESSA 
18¢ 015140 104414 052666 DISPLY ,EM4 [DATA COMPARE ERROR W/O ‘DCK' ERROR 
183 015144 004737 02 be JSR PC LINE SPRINT LINE 2 OF ERROR MESSAGE 
184 015150 004737 bse 24 JSR PC,LINESA sPRINT LINE SA OF ERROR MESSAGE 
185 015154 004737 0235366 JSR PC,LINE sPRINT LINE 4 OF ERROR MESSAGE 
186 015160 000404 BR :G0 TO TYPE HEADER 

188 015162 104414 055613 5$: DISPLY ,LIN9IB sPRINT ‘DATA COMPARISON ERRORS’ 
189 015166 104414 001203 DISPLY <S$CRLF *CR=LF 

190 015172 104414 055642 63: DISPLY ,LINIH sPRINT ° WORD EXPCTD RECEVD 
191 $ ADDR POS DATA DATA’ 
192 015176 012737 177777 001352 MOV #-1,FRSTER sSET FIRST ERROR FLAG 

198 015204 000207 RTS PC RETURN 

195 015206 005737 001334 7$: TST CFLAG sWAS (*C) TYPED? 

196 015212 100412 BMI 9$ :B Y 

197 015214 00573 001364 TST LIMIT sTYPEOUT LIMIT REACHED ? 

198 015220 001403 BEQ ;BR IF IT HA 

199 015222 005337 001364 DEC LIMIT SDECREMENT LIMIT COUNTER 

200 015226 001005 BNE ‘BR IF NOT AT LIMIT 

201 015230 032777 000200 163716 8&$: BIT #SW07,aSwWR sPRINT ALL DATA COMPARE ERRORS ? 
202 015236 001001 BNE 10$ ‘BR IF YES 

203 015240 000207 9$: RTS PC RETURN 

205 015242 010146 10$: MOV R1,-(SP) s;BUFFER ADDRESS 

206 015244 162716 000002 SUB #2, (SP) ;ADJUST ADDRESS 

207 015250 004737 024306 JSR PC.LINOCT :TYPE IT 

208 015254 004737 015312 JSR PC.11$ [GET WORD POSITION 

209 015260 016546 177776 MOV -2(R5) ,-(SP) sPUT EXPECTED DATA ON THE STACK 
210 015264 004737 024306 SR PC,LINOCT [TYPE IT 

211 015270 104414 056530 DISPLY ,BLNKS2 ;TYPE 2 BLANKS 

212 015274 016146 177776 V =2(R1),-(SP) | :RECEIVED DATA 

213 015300 004737 024306 R PC ,LINOCT STYPE IT 

214 015304 104414 0012035 DISPLY ,$CRLF 3s CRLF 

215 015310 000207 5 PC RETURN 

217 015312 023727 001374 177777 11$: CMP WRDPOS ,#-1 ;1S IT HEADER WORD 1 ? 

218 015320 001003 BNE 12$ : N 

219 015322 104414 057055 DISPLY ,MSHW1 [TYPE *  wHwl ° 

220 015326 000420 Pr BR 4 

221 015330 023727 001374 177776 12$: CMP WRDPOS ,#-2 :1S IT HEADER WORD 2 ? 

322 015336 001003 BNE 13$ :B 

223 015340 104414 057065 DISPLY ,MSHW2 [TYPE *  HwW2 ° 

224 015344 000411 BR 

225 015346 013746 001374 13$: MOV WRDPOS ,-(SP) sPUT THE WORD POS ON THE STACK 
226 015352 004737 033332 JSR PC, $SB2D “CONVERT IT TO DECIMAL 

227 015356 004537 032662 JSR RS, SREPLZ sTYPE IT (REPLACE LEADING ZEROS) 
228 015362 000006 “WORD 6 [TYPE 6 DIGITS 

229 015364 104414 057711 DISPLY ,PERIOD sTvPE *.° 

230 015370 104414 956530 146$:  DISPLY ‘BLNKS2 [TYPE 2 BLANKS 

33! 015374 000207 RTS PC 

238 ZLAST LINE OF COMPARE ERROR REPORTING 

235 015376 105737 001353 ENDCMP: TSTB FRSTER+1 sANY COMPARE ERRORS FOUND ? 

236 015402 001417 BEQ 2$ °BR IF NOT 


SEQ 0092 
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001476 


000044 
000002 


002314 
000004 


002314 
000002 


000172 
000170 
000020 


000022 
032046 


001400 
00005 


000004 


000002 


001400 


000024 
001400 
001400 
001376 
001406 


01376 
01406 


eu NE 9 MATCH THE DATA WITH A PATTERN, oat W 
TO 0 (RANDON DATA PATTERN MODE). OTHER 
:AETURN THE ADDRESS OF THE EXPECTED FIXED DATA PA 


21S _EQU 


SEQ 0093 


HEN L OCATION "PATTERN' 
WISE, THIS _ROUr INE WILL 
TTERN INR 


; MOV #BUFFER. R1 sBUFFER ADDRESS 
; JSR PC MATCH 
RETURN :PATTERN ADDRESS IN R4 
: RETURN2 SCOULDN'T MATCH PATTERN 
MATCH: MOV R1,<(SP) sSAVE R1 ON THE STACK 
MOV PATTERN, ay ‘WAS RANDOM PATTERN ENABLED ? 
BEQ :BR_IF YES 
ASL Re :* 
BR 4$ USE KNOWN PATTERN 
1$: MOV #44,R6 :PATTERN TABLE INDEX 
2$: MOV (SP5,R1 AD R Ri 
SUB #2,R4 :DECREMENT INDE; 
BEQ S$ R IF PATTERN NOT MATCH 
MOV STNDAT(R4) RS ZADDRESS OF PATTERN ADDRESS 
MOV #4R ER OF LOLATIONS TO CHECK 
3$: CMP (R1)+, (RS) COMPARE THE BUFFER AGAINST THE cee 
BNe 2$ ‘BR IF NOT EQUAL, TRY NEXT PATTERN 
DEC R3 {EINISHED CHECK CKING? 
BNE 3$ ‘BR IF NOT FINISHED 
4$: ADD #STNDAT RG :MAKE PATTERN ADDRESS ABSOLUTE 
53: ADD #2,2(SP) : INCREMENT RETURN ADDRESS 
6$: MOV (SP)+,R1 SRESTORE R1 
RTS PC :RETURN 
ZUSE ECC TO CORRECT THE DATA ERROR 
ECC: MOV SRPBA(RO), ECSEC SADDRESS OF LAST LOCN XFERED 
MOV $RPWC(RO).-(SP) :ACT WORDS XFERED (2°S COMP) 
ADD SURDL (RO), *(SP) ADD WORDS REQUESTED 
TS, (SP)¢ ZRESTOHE STACK 
RTS PC SEXIT=-NO WORDS KFERRED 
1$: CLR -(SP) SCLEAR NEXT STACK LOCN 
MOV SSSEC(RO),-(SP) :SECTOR SIZE 
JSR PC, $DIV SDIVIDE WORDS XFERED BY, SECTOR SIZE 
TST (SP) ;PART IAL SECTOR XFERED 
BEQ 2$ :BR IF NOT 
ASL (SP) [CONVERT INTO NUMBER OF BYTES 
SUB (S®) ,ECSE SSUBTRACT SECTOR RESIDUE 
CMB #9 .SCODE( :WAS OPERATION, READ HEAD & DATA 
N 
ADD #4, ECSEC TADD HEADER SIZE (IN BYTES) BACK IN 
BR 3$ 'GO ADJUST THE STAC INTE 
a: SUB #256.*2,ECSEC SUBTRACT SECTOR DATA FIELD SIZE (IN BYTES) 
$: ADD #4,SP SADJUST THE STACK POINTE 
MOV $RPEC1(RO)ECBIT -ECC POSITION COUNT 
DEC ECBIT sADJUST BIT POSITION 
MOV ECBIT,ECWRD ‘LOAD THE WORD COUNT LOCATION 
BIC #°C17.EC AVE THE BIT OFFSET COUN 
BIC #17, ECWRD [CLEAR THE BIT OFFSET 
ASR ECWRD HANGE TO BYTE COUNT(DIVIDE BY 2) 
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68 015676 006237 001406 ASR ECWRD CHANGE TO BYTE COUNT(DIVIDE BY 4) 

69 015702 §00g 37 001406 ASR ECWRD [CHANGE TO BYTE COUNT(DIVIDE BY 8.) 

70 015706 104414 056065 DISPLY ,LINIOA S "ERROR BURST BEGINS AT 

71 015712 013746 001406 MOV ECWRD,<(SP) ‘PUT THE WORD COUNT ON THE STACK 

te 015716 006216 ASR (SP) ‘GET STARTING WORD FOR MESSAGE (DIVIDE BY 16.) 
73 015720 011637 091374 MOV (SP) ,WROPOS [GET CURRENT WORD POSITION 

7% 015794 004737 023332 JSR PC,$5B2D ‘CONVERT IT TO DECIMAL 

75 015730 004737 32446 SR PC; $SUPRL [TYPE IT (LEFT JUSTIFIED) 

76 015734 104414 057711 DISPLY ,PERIOD STYPE *.* 

77 015740 104414 056121 DISPLY ‘LINIOB t' IN DATA FIELD OF ERROR SECTOR’ 

78 015744 063737 001400 001406 ADD ECSEC,ECWRD [FIND THE BEGINNING OF THE ERROR BURST 
79 015752 026057 000172 001406 CMP SR°BA(RO),ECWRD :SEE IF BURST WAS IN DATA READ 

80 015760 1 1902 BHI 4$ 'BR IF IN DATA READ 

81 015762 000137 016344 JMP ECC2 ‘NOT IN DATA READ = REPORT !T 

8 015766 016037 000234 001402 4s: MOV SRPEC2(RO) ,ECMSKO :GET THE ERROR BIT MASK 

84 015774 005037 001404 CLR ECMSK1 ;CLEAR THE UPPER MASK WORD 

85 016000 005337 001376 5$: DEC ECBIT [DECREMENT THE BIT OFFSET COUNT 

86 016004 002405 BLT 6$ ‘BR IF DONE 

87 016006 006337 001402 ASL ECMSKO [SHIFT THE ERROR MASK 

88 016012 006137 001404 ROL ECMSK1 [SHIFT THE LOWER INTO THE UPPER 

89 016016 000770 B 5$ [CONTINUE THE SHIFT 

91 016020 017737 163362 001412 68: MOV @ECWRD,ECBADO  ;SAVE THE INCORRECT WORD 

92 016626 013746 001402 MOV ECMSKO.=(SP) | :PUT LOWER MASK ON STACK 

93 016032 047716 163350 BIC @ECWRD, (SP) SCLEAR ERRONEOUS ONE BITS FROM MASK 

94 016036 043777 001402 163342 BIC ECMSKO,@ECWRD :CLEAR ERRONEOUS ONE BITS FROM BAD WORD 
95 016044 052677 163336 BIS (SP)+,@ECWRD § :SET DROPPED BITS 

97 016050 005737 001404 TST ECMSK1 ;DOES ERROR GO INTO NEXT WORD ? 

98 016054 001415 BEQ 7$ :BR IF NO 

99 016056 013737 001406 001414 MOV ECWRD,ECWRD1 = ;DUPLICATE ADDRESS 
100 016064 062737 000002 001414 ADD #2,ECWRDI : INCREMENT ERROR ADDRESS 
101 016072 026037 000172 001414 CMP SRPBA(RO),ECWRD -1S NEXT WORD IN THE BUFFER ? 
102 916100 101006 BHI 8$ :BR IF YES, ELSE, 
103 016102 005737 001402 TST ECMSKO [WAS ERROR IN FIRST WORD ? 
104 016106 901516 BEQ ECC2 “BR IF NO 
105 016110 005037 001414 7$: CLR ECWRD1 [CLEAR 2Nv WORD ADDRESS 

106 016114 000414 BR ECCI SPRINT WORD CORRECTED 
108 016116 017737 163272 001420 8$: MOV @ECWRD1,ECBAD1 ;SAVE THE SECOND BAD WORD 

109 016124 013746 001404 MOV ECMSK1,-(SP) | :PUT THE UPPER MASK ON THE STACK 

110 016130 047716 163260 BIC SECWRDI,(SP) |: CLEAR ERRONEOUS ONE BITS FROM UPPER MASK 
111 916136 043777 001404 163252 BIC ECMSK1,@ECWRD1 :CLEAR ERRONEOUS ONE BITS FROM DATA WORD 
HF 016142 052677 163246 BIS (SP)+,@ECWRD1 :SET DROPPED BITS 

114 016146 104414 056265 ECC1: DISPLY ,LIN1IOH sHEADER 

118 016152 013746 001406 MOV ECWRD,-(SP) [PUT ECWRD ON THE STACK 

016156 004737 024306 JSR PC,LINOCT [TYPE ECWRD 

119 016162 013746 001374 MOV WROPOS,-(SP) | :PUT THE WORD POS ON THE STACK 

120 016166 004737 033332 JSR. PC,$SB2D [CONVERT IT TO DECIMAL 

121 016172 004537 032662 JSR R5.$REPLZ [TYPE IT (REPLACE LEADING ZEROS) 

128 016176 000006 “WORD 6 [TYPE 6 DIGITS 

123 016200 104414 057711 DISPLY ,PERIOD STYPE ',° 

124 016204 106414 056530 DISPLY ‘BLNKS2 :TYPE 2 BLANKS 

129 016210 015746 01412 MOV ECBADO,-(SP) PUT ECBADO ON THE STACK 

016214 004737 024306 JSR PC, LINOCT : TYPE ECBADO 


SEQ 0095 
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MAIN PROGRAM 


1 
: 016356 
4 016364 
5 016366 
6 Blogre 
? 016576 
8 016402 
9 016404 
10 016406 
11 016410 
\¢ 016412 
135 016416 
14 016422 
15 016424 
16 dels} 
17 016430 
18 016432 
19 016434 
20 016440 
$3 016446 
2 016450 
23 016454 
24 016460 
25 016464 
26 016470 
27 016476 
28 016500 
29 016504 
30 016506 
31 016512 
32 016516 
33 016520 
34 016524 
35 016530 
36 016532 
37 016536 
38 
39 016542 
40 016546 
41 016552 
42 016554 
43 016560 
44 016564 
45 016570 
46 016572 
47 016576 
48 016600 
49 016604 
50 016606 
51 016610 
2g 016614 
2 016616 
4 Bioeee 
55 016626 
56 
57 


000207 


000010 
000172 


001000 
000005 


000004 


Vw OV VW VW 
wWwo —O& CO WO 
oer ON WO =| ~w 


001203 


001203 
001203 


162570 


000024 


000024 
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MAIN PROGRAM 


ROUTINE TO DISPLAY THE SECTOR WHICH GAVE THE HARD ERROR 


PRTBAD: BIT 
B 


18: 


3$: 


7$: 
8$: 


JSR 
DISPLY 
DISPLY 
M 


ROUTINE TO DO 


#SW3,aSWR 

oe tens® 5 
DL(RO) .=(S 
SRPUC CRO). (SP) 


(SP)+ 


OO 


a 
<D 


ao —_- ~omvo 
> 
@ 
= 


*2,R 
Se abE cROD 


N11H 
i,  SLODE (RO) 


gh LIN 
ets 
PC. *LINOCT 


0),-(SP) ; 


email ; on BAD SECTOR ? 

‘PUT THE END ADDRESS ‘gh R1 

;FIND THE BEGINNING OF THE SECTOR 
;SUBTRACT THE WORDS NOT TRANSFERED 


Hh hee STACK 


sEXIT=-NO WORDS XFERRED 
MAKE THE UPPER DIVIDEND 0 
DIVIDE THE WORDS XFERED BY THE SECTOR SIZE 
sREMANDER = 0 ? 
;BR IF _IT_IS = COMPLETE SECTOR TRANSFERED 
;CONVERT THE RESIDUAL SECTOR INTO BYTE COUNT 
sSUBTRACT IT FROM THE END ADDRESS 
FINISH THE SIZING 
SUBTRACT FULL SECTOR FROM END ae (IN BYTES) 
BRIE NOT READ HEADER & DATA 

RACT HEADER SIZE FROM ADDR 
‘RESTORE THE STACK POINTER 


7CReL 
:PRINT THE HEADER 
WAS OPERATION READ HEADER & DATA ? 


sTYPE ‘ADDR HEADER 

:PUT THE ADDRESS ON THe STACK 
S TYPE THE ADDRESS 

:TYPE 3 BLANK 

sPUT WORD ON STACK 

s TYPE THE ioe HEADER WORD 

: TYPE 1 + 

:PUT WORD ON STACK 

STYPE ‘. THE oN HEADER WORD 


sTYPE ‘ADDR DATA* 

38. DATA WORDS PER LINE 

;PUT THE etry: ON” THE STACK 
TYPE THE ADDRESS 

;TYPE 2 BLANKS 

i PRINTED ALL He SECTOR ? 

7BR IF ALL PRINTED 

;TYPE_1 BLANK 

Pur ys DATA As THE STACK 
TYPE THE DAT 


:DECREMENT tHe HORIZONTAL COUNT 
:BR He NOT AT THE END OF THE LINE 


7 CR- 
RESTORE THE WORDS/LINE COUNT 
7 CReLF 


3s CRLF 
sRETURN 


A RECALIBRATE USING ACTIVE DPB 


SEQ 0096 


6 8 
CZRJOAO RPO? PERF EXER MACRO V04.00 1-JAN=83 12:06:52 PAGE 18-1 SEQ 0097 
MAIN PROGRAM 
58 7 CALL: 
39 : MOV #0PB,RO ;DPB ADDRESS 
60 : JSP PC,RECALT 
61 : RETURN 
63 016630 010037 016654 RECALT: MOV RO, 28 :LOAD THE «prs ADDRESS 
64 016634 116060 000166 000027 MOVB $RPCS1(RO), abe REVO(RO) ; SAVE THE PREVIOUS COMMAND 
65 016642 112760 000107 000002 MOVB  #RECAL, $COMND(RO) LOAD THE NEW COMMAND 
66 016650 004037 041304 1$ JSR RO, RPO? i START rhe RECALIBRATE 
67 016654 000000 2$ .WORD 0 :DPB ADDR 
68 016656 000774 BR 1$ DRIVER DIDN: T ACCEPT THE COMMAND 
69 016660 005760 000016 3$ TST STATUS (RO) SSEE IF FINISHED 
70 016664 00177 BEQ 3$ TIF €Q 
71 016666 004737 024364 JSR PC,READ * DECREMENT THE ADDRESSES 
re 016672 012660 000034 MOV (SP)¢, BPREVAS2(RO> sMOVE THE CYLINDER ADDRESS 
73 016676 112660 000033 MOVB (SP)+¢, *S$PREVA+1 (RO) seve THE TRACK ADDRESS 
74 016702 112660 000032 MOVB (SP)+ , SPREVA(RO) OVE THE SECTOR ADDRESS 
75 016706 005060 000012 CLR S$CYL(RO) ; CLEAR tie OYERRENT CYLINDER ADDRESS 
76 016712 005060 000010 CLR $SEC(RO) iCLEAR THE CURRENT TRK/SEC ADDRESS 
a 016716 000207 RTS PC RETURN 
6 peour ine TO A RECAL WITH NO UPB ACTIVE 
81 : MOVB  #DRIVE,GENDPB ;DRIVE ADDRESS 
82 ; JSR PC,RECALO 
85 : RETURN 
85 016720 112737 000107 050656 RECALO: MOVB #RECAL ,GENDPB+$COMND sRELCALIBRATE COMMAND 
86 016726 004037 041304 1$: JSR RO, RPO? sDRIVER ENTRANCE 
87 016732 050654 GENDPB ‘DPB ADDRESS FOR COMMAND 
88 016734 000774 BR t ; [DRIVER DIDN'T ACCEPT THE COMMAND 
89 016736 005737 050672 2$: TST GENDPB+$1 TUS :SEE IF FINISHED 
90 016742 001775 BEQ 2$ ‘BR IF NOT FINISHED 
R 016744 000207 RTS PC 
4 wae READ HEADER ROUTINE 
111 3 MOV #0PB,RO ;DPB ADDRESS 
112 : MOV WSECTOR,-(SP) SECTOR ADDRESS 
113 R MOV #TRACK,-(SP) s TRACK ADDRESS 
114 : MOV #CYLINDER, -(SP) :CYLINDER ADDRESS 
115 ; JSR PC READ 
3 $ RETURN 
118 016746 116637 000004 050665 READHD: MOVB 4(SP),GENDPB+S$TRK ; TRACK aADDRESS 
119 016754 116637 000006 050664 MOVB 6 (SP) .GENDPB+$SEC SSECTOR ADDRESS 
120 016762 016637 000002 050666 MOV 2(SP) .GENDPB+$CYL wise eRNDER ADDRESS 
121 01677 111037 050654 MOVB (RO) ,GENDPB DRIVE 
122 016774 M127 7 000173 050656 MOVB  #RDHD, GENDPB+$COMND ; COMMAND 
123 017002 012737 177776 050660 MOV #2, GENDPB+SWCNT “WORD CTR = 2 
124 017010 004037 041304 1$: JSR RO, RPO? DRIVER ENTRANCE 
125 017014 050654 GENDPB PB ADDRESS FOR COMMAND 
126 017016 000774 BR 1$ ‘DRIVER DIDN'T ACCEPT COMMAND 
127 017020 005737 050672 2%: TST GENDPB+$TATUS 3FINISH ED? 
128 017026 001775 BEQ 2$ R IF NOT 
129 017026 011666 000006 MOV (SP) ,6(SP) TADJUST STACK FOR RETURN 
130 017032 062706 000006 ADD #6,SP TADJUST RETRUN POINTER 


CZRJOAO aoe PERF EXER MACRO V04.00 1-JAN-83 12:06:52 PAGE 18-2 


MAIN PROGRA 
13) 017036 000207 


138 

134 

135 

136 

137 

138 

139 

140 

141 

146 017040 004737 
1435 017044 005760 
144 017050 001775 
145 017052 100405 
146 017054 105237 
147 917060 062716 
se 017064 000436 
150 017066 032760 
151 017074 001441 
136 017076 005757 
153 017102 001004 
154 017104 005760 
155 017110 001025 
136 017112 000415 
158 017114 022737 
159 017122 001005 
160 ori es 03276 
161 0171352 001414 
166 017134 000404 
164 017136 033760 
165 017144 00140 
166 017146 10523 
167 017152 12373 
168 017160 00132 
169 017162 00020 
171 017164 00473 
172 017170 00473 
173 017174 00572 
178 917176 00020 
176 017200 10441 
177 017204 00013 


000202 


000007 
000002 


001322 


001325 
001324 


000016 


001322 
000200 


000202 


001325 


2$: 


3$: 


4$: 
5$: 


6$: 
7$: 


8$: 


RTS 


DISPLY 
JMP 


PC ;RETURN 


#COUNT, RETRY sRETRY COUNT 
PC, $RETRY 
gRETRY UNSUCESSFUL 
SUCESSFUL RETRY 
sNOTE: IF A DIFFERENT ERROP OCCURS DURING 
RETRY, THE ROUTINE EXITS TO ‘ERPRC1' 
PC,,GODRIV zRE-START ORDER 
STATUS (RO) ORDER FINISHED? 
1$ :BR IF NOT 
2$ :BR IF ERROR 
RETRY+1 : INCREMENT RETRY COUNT 
#2, (SP) s INCREMENT RETURN 
6$ GO TO EXIT 
#BIT7,$TATUS(RO) ;DID ORDER TERMINATE NORMALLY ? 
8$ sBR if NOT 
MASK :1S ERROR MASK 0 ? 
:BR IF NOT 
SRPER1(RO) s;MAKE SURE THAT THE DRIVE ERROR REG IS CLEAR 
7$ :BR IF NOT 
5$ CONTINUE RETRY 
#7 MASK EWN ERROR? 
7BR IF NO 
#BIT1,$RPDS(RO) ;"EWN' STILL SET? 
7$ ' NO, REPORT DIFFERENT ERROR 
5$ [SET, RETRY 
MASK,$RPER1(RO) ;SAME ERROR? 
7$ :BR IF NOT 
RETRY+1 : INCREMENT RETRY COUNT 
RE’RY,RETRY*+1  :DONE ? 
SRETRY :BR IF NOT DONE 
C : RETURN 
PC, LINES REPORT DIFFERENT ERROR 
PC,LINE? sPRINT LINE 7 
(SP) + ADJUST STACK POINTER FOR DIRECT RETURN 
PC :RETURN 
~LINSM "DIFFERENT ERROR DURING RETRY* 
ERPRC1 sREPORT THE ERROR 


SEQ 0098 
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MAIN PROGRAM 


1 : ROUTINE TO UPDATE THE PERFORMANCE SUMMARY STATISTICS 
§ : MOV #DPB,RO :DPB ADDRESS 
4 ; JSR PC, STATIS 
2 : RETURN 
7 017210 032760 000300 000016 STATIS: BIT #81T07'B1T06, STATUS (RO) sCHECK FOR DATA TERMINATION 
8 017216 001533 BEO 7$ F NOT DATA TERMINATIO 
9 017220 016037 000172 017510 MOV SRPBA(RO) FACTOR “STORE THE FINAL paveeeR ADDRESS 
10 017286 166037 000006 017510 SUB SBUF(RO),FACTOR ;SUBTRACT THE INITIAL ADDRESS 
11 017234 001324 BEQ 7$ ‘BR IF NO DATA TRA ANSFERS 
ig 017236 006237 017510 ASR FACTOR ‘CONVERT TO A WORD COUNT 
14 017242 122760 000002 000024 CMPB ss #2, SCODE (RO) iSEE IF COMMAND WAS A WRITE 
15 017250 001404 BEQ [BRANCH IF YE 
16 017252 122760 000000 000024 CMPB =s-«s #0, SCODE (RO) {PRESENT OPERATION AN AUTO WRITE CHECK ? 
17 017260 001043 BNE 4 :BR IF NO 
18 017262 063760 017510 000042 1S: ADD FACTOR, $WIPAS(ROS sADD WORDS WRITTEN PER PASS 
19 017270 005560 000044 ADC SWIPAS#2(RO) “ADD ANY CARRY 
20 017274 063760 017510 000062 ADD FACTOR, $WIOTL+4(RO) yADD WORDS WRITTEN TO REP COUNTER 
21 017302 005560 000064 ADC SWTOTL+6(RO) :ADD ANY CARRY 
2. 017306 016046 000062 MOV SWTOTL#4(RO) ,-(SP) GET LOW DIVIDEND 
2% 017312 016046 000064 MOV SWIOTL+6(RO) ,=(SP) :GET HIGH DIVIDEND 
24 017316 012746 041100 MOV #041100,-(SP) | ;GET LOW DIVISOR 
25 017322 012746 000017 MOV #17,-(SP) 'GET HIGH DIVISOR 
26 017526 004737 032114 JSR PC, $DBDIV “DIVIDE BY 1 X10%6 
27 017332 005766 000004 TST 4(§P) [DID REP COUNTER REACH LIMIT YET ? 
28 017336 001412 BEQ 2$ “BR IF NO 
29 017340 012660 000064 MOV (SP)¢, SWTOTL*+6(RO) ;GET HIGH REMAINDER 
30 017344 012660 000062 MOV (SP)+. $WTOTL+4(RO) “GET LOW REMAINDER 
31 017350 062760 000091 000056 ADD #1,$WTOTL(RO)  ;!!ODATE THE TOTAL WRDS WRITTEN 
32 017356 005560 000060 ADC SWIOTL+2(RO) [ADD ANY CARRY 
33 017362 000401 BR 3$ 
34 017364 022626 2$: CMP (SP)+, (SP)+ :GET HIGH & LOW REMAINDER OFF STACK 
33 017366 005726 3$: TST (SP) + [GET QUOTIENT OFF STACK 
37 017370 122760 000002 000024 4$: CMPB =—s« #2, SCODE (RO) :SEE IF COMMAND WAS A WRITE 
38 017374 001443 BEO 7$ * BRANCH IF YES 
39 017400 063760 017510 000036 ADD FACTOR, $RDPAS (ROS ADD WORDS READ PER PASS 
40 017406 005560 000040 ADC SRDPAS+#2(RO) sADD ANY CARRY 
41 017412 063760 017510 000072 ADD FACTOR, $RTOTL#4(RO) sADD WORDS READ TO REP COUNTER 
42 017420 005560 000074 ADC SRTOTL*6(RO) :ADD AN R 
43 017424 016046 000072 MOV SRTOTL#4(RO) , (SP) 3GET Low DIVIDEND 
44 917430 016046 000074 MOV $RTOTL+6(RO) .-(SP) :GET HIGH DIVIDEND 
45 017434 012746 041100 MOV #041100,-(SP5 | ;GET LOW DIVISOR 
46 017440 012746 00001 MOV (SP) :GET HIGH DIVISOR 
47 017444 004737 032114 JSR Pc $DBDIV ‘DIVIDE BY 1 x10* 
48 017450 005766 000004 1ST 4(§P) [DID REP COUNTER REACH LIMIT YET ? 
49 017454 001412 BEQ 5$ “BR IF NO 
50 017456 012660 000074 MOV (SP) +, $RTOTL+6(RO) :GET HIGH REMAINDER 
51 017462 012660 000072 MOV (SP) +. $RTOTL*#4(RO) GET LOW REMAINDER 
52 017466 062760 000001 000066 ADD #1,$RTOTL(RO) UPDATE ig TOTAL WRDS READ 
53 017474 005560 000070 ADC SRTOTL#2(RO) [ADD ANY CARRY 
54 017500 000401 BR 6$ 
55 017502 022626 5$: CMP (SP)+,(SP)¢ :GET HIGH & LOW REMAINDER OFF STACK 
56 017504 095726 6$: TST (SP) + SGET QUOTIENT OFF STACK 
57 017506 000207 7$: RTS PC 
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MAIN PROGRAM 


58 
59 017510 000000 FACTOR: .WORD 0 ;USED FOR WORDS TRANSFERED 


a 
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MAIN PROGRAM 
1 : ROUT INE TO GET A BUFFER 
. : MOV #0PB,RO :DPB ADDRESS 
4 : CLR =($?5 SCLEAR THE STACK 
5 ; JSR PC,GETBUF 
6 : RETURN sBUFFER ADDRESS WILL BE ON THE STACK 
‘ 3 sSTACK WILL BE ZERO IF NO BUFFER AVAILABLE 
9 017512 010146 GETSUF: MOV R1,-(SP) ; SAVE RI 
10 017514 010246 MOV Re.~(SP) 3SAVE R 
11 017516 010346 MOV R3,-(SP) TSAVE R 
ig 017920 013702 001654 MOV UF TBL,R2 :NUMBER OF SEPARATE BUFFERS 
13 017524 001444 BEQ 4 [BR IF NONE AVAILABLE 
14 017326 012701 001656 MOV #BUFTBL+2,R1 SFIRST ADDRESS OF ALLOCATION TABLE 
15 017532 026061 000020 000002 1$: CMP SWRDL (RO) ,2(R1) i SEE IF THERE IS A BLOCK LARGE ENOUGH 
16 017540 101405 BLOS 2% SBRANCH IF IT IS 
17 017542 005302 DEC R2 . :DECREMENT TABLE COUNT 
18 017544 001434 BEQ 5$ [BR IF THROUGH TABLE 
19 017546 062701 000004 ADD #4,R1 ONCREMENT TABLE POINTER 
20 017552 000767 BR 1$ SCONTINUE LOOKING 
21 017554 011166 000010 2$: MOV (R1),10(SP) [BUFFER ADDRESS TO STACK 
22 017560 166061 000020 000002 SUB SURDE (ROD 2(R1) SAD JUST BUFFER WRD CNT 
23 017566 001407 BEQ 3$ R IF DIFFERENCE IS ZERO 
24 017570 006360 000020 ASL SWRDL (RO) SCONVERT # WORDS TO BYTES 
25 017574 066011 000020 ADD SuRDL (RO) (R1) MAKE NEW STARTING ADDRESS 
26 017600 006260 000020 ASR SWRDL (RO) [RETURN # BYTES TO WORDS 
27 017604 000414 BR 5$ + RETURN 
28 017606 005337 001654 3$: DEC BUF TBL ‘DECREMENT ENTRY COUNT 
29 017612 001411 BEG 5$ ‘BR IF ALLOCATION TABLE EMPTY 
30 017614 005302 DEC R2 sDECREMENT TABLE COUNT 
31 017616 001407 BEQ 5$ ; F ITEM WERE LAST ENTRY 
32 017620 010103 MOV R1,R3 :MOVE TABLE POINTER 
33 017622 062703 000004 ADD #4-R3 [POINT TO NEXT ENTRY 
34 017626 012321 4$: MOV (R3)4#,(R1)4 SMOVE ITEMS 
35 017630 012321 MOV (R3)+,(R1)+ 
36 017632 005302 DEC R2 :DECREMENT TABLE COUNT 
37 017634 001374 BNE 4$ CON TINUE al NOT AT END OF TABLE 
38 017636 012603 5$: MOV (SP)+,R3 i $10 
39 017640 012602 MOV (SP)+,R2 STORE R2 
40 017642 012601 MOV (SP)+-R1 RESTORE R1 
4} 017644 000207 RTS PC TRETURN 
43 ;ROUTINE TO PUT BUFFER BACK IN TABLE 
46 3s CALL: 
45 : MOV #DPB,RO :DPB ADDRESS 
46 : JSR PC,RELBUF 
+4 3 RETURN 
49 017646 RELBUF: MOV R1,-(SP) sSAVE R1 
50 017650 MOV Re.~(SP) + SAVE Re 
51 017652 MOV R3,-(SP) :SAVE R 
3¢ 017654 MOV R4,-(SP) ZSAVE RG 
53 017656 MOV R5,-(SP) sSAVE RS 
54 017660 001656 MOV #BUFTBL+2,R1 [BEGINNING OF TABLE 
38 017664 001654 MOV BUF TBL .R2 SENTRY COUNT 
6 017670 BEQ 2$ ‘BR IF EMPTY TABLE 
57 017672 000120 MOV SHLDWC(RO),R3  :TRIAL ADDRESS 
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MAIN PROGRAM 

58 017676 00630 ASL R3 :CHANGE TO BYTE COUNT 

59 017700 96600 000006 ADD SBUF (ROD .RS SADDRESS OF HIGHER ADJACENT BLOCK 
60 017704 02110 1$: CMP (R1),R “UPPER ADJACENT BLOCK 

61 017706 001424 BEQ 3$ ‘BR IF YES 

6¢ 017710 962701 000004 ADD #4,R1 ‘INCREMENT POINTER 

63 017714 00 302 DEC R2 *DECREMENT ENTRY COUNT 

64 017716 001372 BNE 1$ [CONTINUE SEARCHING 

65 017720 016011 000006 MOV $BUF(RO),(R1) | :PUT THE BUFFER BLOCK INTO THE TABLE 
66 017794 016061 000120 000002 MOV SHLDWC(RO),2(R1) sBLOCK WRD CNT 

67 017732 003237 001654 INC BUFTBL s INCREMENT ENTRY COUNT 

68 017736 005202 INC R ‘INCREMENT R2 FOR USE LATER 

69 017740 000414 BR 4$ ‘SEE IF A LOWER ADJACENT BLOCK IS IN THE TABLE 
70 017742 016921 000006 2$: MOV $BUF(RO),(R1)+ BLOCK ADDRESS TO TABLE 

71 017746 0160¢1 000120 MOV SHLDWC(RO),(R1)¢ sWwRD CNT TO TABLE 

te 017752 005237 001654 INC BUF TBL sINCREMENT ENTRY COUNT 

73 017756 000443 BR 8$ EXIT 

74 017760 016011 000006 3$: MOV $BUF(RO),(R1) :RELEASED BUFFER IS LOWER ADJACENT 
75 017764 066061 000120 000002 ADD SHLDWC (RO) ,2(R1) s INCREMENTED WRD CNT 

76 017772 010246 4$: MOV R2,-(SP) sSAVE R2 

77 017774 013702 001654 MOV BUF TBL,R2 SENTRY COUNT 

78 020000 012705 001656 MOV #BUFTBL+2,R5  :BEGINNING OF TAB 

79 020004 016504 000002 5$: MOV 2(R5),R4 tBLOCK SIZE (IN WORDS) 

80 020010 006304 ASL RG [CHANGE TO BYTE COUN 

81 020012 061504 ADD (RS) ,R4 [ADD BLOCK BEGINNING ADDRESS 

82 020014 020411 CMP R4,(R1) [R1 STILL POINTS TO INSERTED ENTRY 
83 020016 001406 BEQ 6$ sLOWER ADJACENT 'N TABLE 

84 osoose 062705 000004 ADD #4,R5 s INCREMENT POI 

85 020024 005302 DEC R2 :DECREMENT ENTR’ COUNT 

86 020026 001366 BNE 5$ S CONTINUE LOOKING 

87 020030 005726 TST (SP)+ sRESTORE STACK POINTER 

88 020032 000415 BR 84 : 

89 020034 012602 6$: MOV (SP)+,R2 SRESTORE R2 

90 020036 066165 000002 000002 ADD 2(R1),2(R5) : INCREMENT LOWER BLOCK LENGTH 

91 020044 005337 001654 DEC BUF TBL SDECREMENT ENTRY COUNT 

92 020050 010105 MOV R1,R5 ‘GET READY TO COMPRESS 

93 020052 062705 000004 ADD #4°R5 S INCREMENT TO NEXT ENTRY 

94 020056 012521 7$: MOV (R5)+,(R1)¢ sCOMPRESS TABLE 

95 020060 012521 MOV (R5)+,(R1)+4 ‘MOVE SIZE FIELD DOWN 

96 020062 005302 DEC R2 ‘DECREMENT ENTRY COUNT 

97 020064 001374 BNE 7$ 'BR IF NOT FINISHED 

98 020066 012605 8$: MOV (SP)+,R5 SRESTORE R5 

99 020070 012604 MOV (SP) +,R4 SRESTORE R4 

100 020072 012603 MOV (SP)+,R3 SRESTORE R3 

101 020074 012602 MOV (SP)+,R2 TRESTORE R2 

102 020076 012601 MOV (SP)+,R1 *RESTORE R1 

103 020100 000207 RTS PC “RETURN 
105 FILL THE ASSIGNED BUFFER (IF WRIT OR WRITE CHECK COMMAND) 

107 F MOV #DPB,RO :DFa ADDRESS 

108 ; MOV #BUF ADR, SBUF (RO) sLOAD BUFFER ADDRESS INTO THE DPB 
109 : MOVB  #PATTERN, $PATTC(RO) SPATTERN CODE 

110 ; JSR PC, FILBUF 

1] : RETURN 

118 020102 104412 FILBUF: SAVREG sSAVE THE REGISTERS 

114 020104 132760 000004 000024 BITB. #4,$CODE(RO)  :SEE IF READ COMMAND 
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OVE COOE Av COMMAND REQUIRE A CYLINDER CHANGE ? 


AD 


28 
cont ANUE DISTRIBUTING THE PATTERN 


THE REGISTERS 
ESS 


DPB ADDRESS 

DRIVE HANDLER 

OCK ADDRESS GOES HERE 
EJECTED REQUEST 


T THE OPERATION COUNT 


T SEEK COUNT PER PASS 
CARRY 

T SEEK COUNT TOTAL 
CARRY 


BNE 4$ :BR IF R 
1$: MOV SBUF(RO),R1 [BUFFER 
MOV SWRDL(ROS,R2 :POSITIV 
MOVB $PATTC(ROS,R4  :RELATIV 
2$: MOV STNDAT(R4).R5 = PATTERN 
MOV #16.,R3 ‘PATTERN 
3$: MOV (R534, (R1)4+ ‘MOVE TH 
DEC R2 :DECREME 
BLE 4$ : 
DEC R3 :DECREMEN 
BNE 35 R IF MORE 
BR 2$ 
4$: RESREG SRESTORE 
RTS PC SRETURN 
: START THE COMMAND FOR THE DPB IN RO 
: MOV #DPB,RO :DPB ADDR 
; JSR PC,GODRIV 
; RETURN 
GODRIV: MOV RO,-(SP) :SAVE RO 
MOV ; + CURRENT 
1$: JSR RO.RPO7 SCALL THE 
2$: ~WORD 0 :DRIVE BL 
HALT [DRIVER R 
MOV (SP)+,RO s RESTORE 
ADD #1,$OPERC(RO) :INCREMEN 
ADC SOPERC+2(RO) 
CMP SPREVA+2(RO) 
BEQ 3$ ; 
ADD W1,SSEEKS(RO) : INCREMEN 
ADC SSEEKS#2(RO) ADD ANY 
ADD #1,$STOTL(RO) :INCREMEN 
- ADC $STOTL+2(RO)  :ADD ANY 


SEQ 0103 
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MAIN PROGRAM 


1 : ROUTINE TO SETUP PARAMETERS FOR A SEQUENTIAL READ OR WRITE OF THE DISK 
$ : MOV #0PB,RO :DPB ADDRESS 
4 : MOV #NN,SPACK(RO) GET COMMAND NUMBER 
4 : JSR PC, SEQPAR *CALL ROUTINE 
8 ; RETURN 
8 [WHERE "NN* CAN BE ONE OF THE FOLLOW NUMBERS; 
9 s "WT" COMMAND= <2 
10 : ‘w' COMMAND= =1 
11 ; 'T' COMMAND= 0 (NOT USED IN ROUTINE) 
1 § "R® COMMAND= 1 
14 020250 005760 000054 SEQPAR: TST SOPERC+2(RO)  :1S THIS THE FIRST OPERATION ? 
15 020254 001010 BNE BR 
16 020256 005760 000052 TST SOPERC(RO) [1S THIS THE FIRST OPERATION ? 
17 020262 001005 BNE “BR I 
18 020264 012704 000010 MOV #SSEC,R4 sGET INDEX TO SECTOR ADDR STORAGE IN DPB 
19 020270 004737 021332 JSR PC,CKLMTS :GO CHECK DISK ADDRESS LIMITS 
20 020274 000453 BR 3$ ‘BR IF NOT AT END OF SEQUENTIAL ADDRESSING 
22 020276 116060 000166 000027 1$: MOVB $RPCS1(RO),S$PREVO(RO)  ;SAVE CURRENT PARAMETERS 
23 020304 016060 000010 000032 MOV SSEC(RO) ,SPREVA(RO) sSAVE PREVIOUS TRACK/SECTOR ADDRESS 
24 020312 016060 000012 000034 MOV SCYL(RO).$PREVA+2(RO) SAVE PREVIOUS CYLINDER ADDRESS 
25 020320 016060 000174 000010 MOV SRPDA(RO) , $SEC(RO) SCURRENT SECTOR & TRACK ADDRESS 
36 020326 016060 000222 000012 MOV SRPDC(RO) .$CYL(RO) [CURRENT CYLINDER ADDRESS 
28 020334 012704 000010 2$ MOV #SSEC,R4G sGET INDEX TO SECTOR ADDR STORAGE IN DPB 
29 020340 004737 021332 JSR PC,CKLMTS :GO CHECK DISK ADDRESS LIMITS 
30 020344 000427 BR 3$ [BR IF NOT AT END OF SEQUENTIAL ADDRESSING 
3) 020346 116060 000146 000010 MOVB  MINSEC(RO),$SEC(RO) ;RESET SECTOR ADDRESS 
33 020354 116060 000142 000011 MOVB  MINTRK(RO).$TRK(RO) SRESET TRACK ADDRESS 
34 020362 016060 000136 000012 MOV MINCYL(RO) .$CYL(RO) “RESET CYLINDER ADDRESS 
35 020370 112760 000004 000024 MOVB #4,$CODE(RO)  ;SET CODE TO READ DATA 
36 020376 122760 177776 000026 CMPB #-2, $PACK (RO) ;WAS WRITE DATA IN PROGESS ? 
37 020404 001473 BEQ $ ‘BR IF YES (START TESTING, *T° COMMAND) 
38 020406 004737 031420 JSR PC, SEOP STHIS IS THE END OF PA 
39 020412 032777 000020 160534 BIT #5004 ,aSWR [DO NOT DROP DRIVE AT EOT (Sw04=1) ? 
40 020620 001467 BEQ 9$ [BR IF NO 
41 020422 000744 BR 2$ SMUST SURE ADDRESS IS NOT "BSF* TRACK 
3 020424 012704 000010 3$: MOV WSSEC,R4 :GET INDEX TO SECTOR STORAGE 
44 920630 013705 001466 MOV WROCNT RS [WORD COUNT IS MAXIMUM 
45 020434 004737 02151 JSR PC, CHKWC sCHECK WORD COUNT FOR MAXCYL/MAXTRK 
46 020440 010560 000020 MOV R5.SWROL(RO) § :GET WORD COUNT 
47 020444 042760 000377 000020 BIC #377, $WRDL(RO) :1S IT LESS THAN ONE SECTOR WORD COUNT ? 
48 020452 001002 BNE 4 : N 
49 020454 105260 000021 INCB —- $WRDL#1(RO) “SET TO ONE SECTOR 
50 020460 016060 000020 000004 4s: MOV SWROL (RO) , SWCNT(RO) ;STORE FOR 2°S COMPLEMENT WORD 
51 020466 016060 000020 000120 MOV SWRDL(RO) -$HLDWC(RO) | HOLD WORD FOR *RELBUF® ROUTINE 
52 020474 005460 000004 NEG SWCNT(RO) sCHANGE WORD COUNT TO 2°S COMPLEMENT 
3 020500 012760 000400 000022 MOV #256. ,$SSEC(RO) :SECTOR SIZE FOR READ OR WRITE 
ee 020506 105760 000026 TSTB = $PACK (RO) :*R" OR ‘Ww’ COMMAND FOR THIS DRIVE ? 
56 020512 100407 BMI “BR IF 
57 020514 112760 000004 000024 S$: MOVB #4,$CODE(RO) CODE FOR READ DATA 


SEQ 0104 
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2 113760 000171 000002 MOVB  #RDDAT,$COMND(RO) “DRIVE CODE FOR OPERATION 

00041 BR 7$ ;SET UP FOR EXIT ' 

2 005737 001424 6$: TST RDONLY ‘LOCKED IN "READ ONLY’’ MODE ? 

6 001366 BNE 5$ ‘BR IF YES 

0 112760 000002 000024 MOVB #2,$CODE(RO) “CODE FOR WRIDAT 

6 11 760 000161 000002 MOVB = #W RIDAT SCOMND (RO) -OP CODE 

4 006737 021272 R PC,GETPAT :GET PATTERN CODE 

0 110560 000030 MOVB=sRS CET TCCROD ‘PATTERN CODE 

4 012760 177777 000130 7$: MOV e-{ » SNEXT (ROD iSET PARAMETERS SELECTED INDICATOR 

2 000207 RTS *RETURN 

4 105060 000026 8$: CLRB PACK(RO) ;SET ‘T* COMMAND FLAG IN DPB TABLE 
005960 000130 9$: CLR $NEXT(RO) SCLEAR "PARAMETER SELECTED’ INDICATOR 
005726 TST (SP)+¢ *CLEAR STACK LEVEL 
000137 006340 JMP MAIN : JUMP TO MAIN BACKGROUND LOOP 


me 


9 
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1 : GENERATE PARAMETERS FOR THE OPERATION 

g : MOV ;DPB ADDRESS 

4 . JSR pce Po iD aR 

2 3 RETURN 

7 020612 004737 037126 GENPAR: JSR PC, SRAND sCYCLE THE RANDOM NUMBER oGENERATOR 
9 matat Mite 001424 TST RDON *LOCKED IN “READ ONL 

10 020622 001016 . BNE 1$ ‘BR IF YES 

Ig 9206 4 032777 000001 160322 BIT #SWO,aSWR SSEE IF SwWO SET 

13 020632 001012 BNE 1$ :BR IF SET = READ ONLY 

14 020654 912705 000010 MOV #8. ,R5 SREAD/WRITE SELECTION DIVISOR 

15 020640 004737 032022 JSR PC, GETREM ‘GET SELECTION VA 

16 020644 020537 001502 CMP R5-RATIO “DETERMINE IF READ OR WRITE 

17 020650 103003 BHIS 1$ ‘BR IF READ 

18 020652 012705 000002 MOV #2,R5 TSELECT WRITE DATA COMMAND 

19 020656 000407 BR 2$ :SELECT ADDRESS 
21 020660 013705 037226 1$: MOV SLONUM,RS ZSELECT READ OPERATION CODE 

22 020664 000305 SWAB 5 [SWAP BYTES IN R5 

23 0206 42705 177776 BIC #*°C1,R5 *MASK OUT ALL BUT BIT 

24 020672 062705 000004 ADD #4,R5 “TABLE OFFSET FOR READ CODE 

25 020676 110560 000122 2$ MOVB RS. SNCODE<RO) i COMMAN D SELECTION CODE TO CONTROL BLOCK 
26 020702 016060 000174 000124 MOV SREDATROD SNSEC(RO) ;SECTOR AND TRACK 

37 020710 016060 000222 000126 MOV SRPDC(RO) -SNCYL(RO) SCYLINDE? NUMBER 
29 020716 005737 001510 THEAD: TST RANDOM sENABLE RANDOM ADDRESS SELECT ? 

30 020722 001427 BEQ RANCYL iY 

31 020724 005760 000054 TST SOPERC+2(RO) [1S THIS THE FIRST OPERATION ? 

32 020730 001003 BNE :BR 

33 020732 005760 000052 TST SOPERC (RO) :1S THIS THE FIRST OPERATION ? 

34 020736 001405 BEQ 2$ ‘BR IF YES 
36 020740 012704 000124 1$: MOV #SNSEC,RG :GET INDEX TO SECTOR ADDR STORAGE IN DPB 
37 020744 004737 021332 JSR PC,CKLMTS 'GO CHECK DISK ADDRESS L 

38 020750 000412 BR 3$ [BR IF NOT AT END OF SE GUEMTTAL ADDRESSING 
39 020752 116060 000146 000124 2$: MOVB  MINSEC(RO),$NSEC(RO) RESET SECTOR ADDRESS 
40 020760 116060 000142 000125 MOVB MINTRK(RO) ,SNTRK(RO) rt TRACK ADDRESS 

41 020766 01606C 000136 000126 MOV MINCYL (RO) .$NCYL(R RESET CYLINDER ADDRESS 

42 020774 000761 BR 1$ sRE-CHECK FOR "BSF* TRACK 

43 020776 000137 021150 3$: JMP RANSIZ :GO CHECK FOR RANDOM WORD SIZE 
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MAIN PROGRAM SEQ 0 


mo 


;GENERATE A RANDOM CYLINDER ADDRESS BETWEEN VALUES ‘MINCYL' & 'MAXCYL" 
021002 016005 000134 RANCYL: MOY  MAXCYL(RO)R5_ GET MAXIMUM CYLINDER ADDRESS 
i 031008 026005 000136 , CMP = MINCYL(RO);R5 =; "MINCYL AND. ;MAXCYL* THE SAME ? 
5 021012 001407 BEQs«1$ iaR If THEY A 
6 021014 166005 000136 SUB pm RS GET NUMBER OF ALLOWABLE CYLINDERS 
Z 021020 005203 INC = oR i INCREMENT ADIEEERENCE TO USE AS DIVISOR 
8 021022 004757 03202 JSR GET THE RANDOM NT 
9 021026 066005 000136 ADD miNeVL (ROD rs NEW CYLINDER ADDRESS 
19 021052 010560 000126 1$: MOV »SNCYL(RO) = STORE CYLINDER ADDRESS IN DPB 
4 GENERATE A RANDOM TRACK ADDRESS BETWEEN VALUES "MINTRK' & 'MAXTRK" 
14 021036 016005 000140 RANTRK: MOV = MAXTRK(RO).RS —-;GET MAXIMUM TRACK ADDRESS 
15 021042 026005 000142 CMP = MINTRK(RO) ,R5 i AMINTRK AND *MAXTRK' THE SAME ? 
16 021046 001407 BEQ Ss BR IF THEY AR 
17 021050 166005 000142 SUB - MINTRK(RO),RS GET NUMBER OF ALLOWABLE TRACKS 
18 021054 005205 INC = RS INCREMENT DIFFERENCE TO USE AS DIVISOR 
19 021056 004737 032022 JSR PC. GETREM {GET THE RANDOM AUGHENT 
20 021062 066005 000142 ADD  MINTRK(RO),RS NEW TRACK ADDRESS 
g1 021066 110560 000125 1$:  MOVB R5,S$NTRK(RO) © STORE TRACK ADDRESS IN DPB 
¢3 ;GENERATE A RANDOM SECTOR ADDRESS BETWEEN VALUES "MINSEC' & ‘MAXSEC' 
25 021072 016005 000144 RANSEC: MOY —MAXSEC(RO).R5_:GET MAXIMUM SECTOR ADDRESS 
26 021076 026005 000146 CMP = MINSEC(RO),R5 =; "MIN SEC! AND TMAXSEC' THE SAME ? 
27 021102 001407 BE Sis BR _IF THEY ARE 
28 021104 166005 000146 Sug MINSEC (RO) .R5 GET NUMBER OF ALLOWABLE SECTORS 
29 021110 005205 INC RS HINCREMENT DIFFERENCE TO USE AS DIVISOR 
30 021112 004737 032022 JSR C,GETREM GET THE RA ANDOM. AUGMENT 
31 021116 066005 000146 ABD. MINSECCROD RS NEW SECTOR ADDRESS 
32 021122 110560 000124 1$:  MOVB R5,$NSEC(RO) = ;STORE SECTOR ADDRESS IN DPB 
3 ;MAKE SURE ADDRESS JUST GENERATED IS NOT "BAD SECTOR FILE* 
$6 021126 012704 000124 MOV = #SNSEC,R4 :GET INDEX TO SECTOR ADDR STORAGE IN DPB 
37 021132 004737 021332 JSR PC, CKLMITS O CHECK DISK ADDRESS LIMIT 
38 021136 000404 ae SBR IF NOT AT END OF SEGUENTIAL ADDRESSING 
39 021140 004737 037126 JSR PC, SRAND CYCLE THE RANDOM NUMBER GENERATOR 
40 021144 000137 021002 JMP = RANCYL GO GENERATE NEW ADDRESS 
41 021150 28: 
as ;GENERATE A RANDOM BUFFER LENGTH BETWEEN 6 & THE VALUE IN ‘WRDCNT' 
45 021150 013705 001466 RANSIZ: MOV  ——- WRDCNT,R5 GET MAX WORD COUNT 
46 021154 005737 001500 TST — RANDWC iSELECT A RANDOM WORD COUNT ? 
47 021160 001011 BNE NOT 
48 021162 005203 INC —RS INCREMENT THE MAXIMUM WRD CNT 
49 021164 004737 032022 JSR PC, GETREM DIVIDE BY MAX VALU 
30 021170 020527 000006 CMP «RS #6 ;WORD COUNT LESS THAN 6 ? 
31 021174 902005 BGE R_IF NO 
2021176 004737 037126 1$: JSR PC, SRAND ECYCLE THE RANDOM NUMBER GENERATOR 
s¢ 021202 000762 aR RANSIZ 
§ 021204 012704 000124 2$: MOV  #SNSEC,R4 GET INDEX TO SECTOR STORAGE 
56 021210 004737 021512 JSR PC, CHKWC SEE IF WORD COUNT IS TOO LARGE TO FIT 
$7 IN REMAINDER OF TRACK, IF SO, THEN ADJUST 
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000002 000122 38: 


000377 


000400 
000020 


000020 
001476 


001476 


037126 
032022 


4$: MOV 


#2. SNCODE (RO) 
#377,R5 


#256.,R5 
RS Suhre (ROD 


GET A RANDOM PATTERN NUMBER 


RANPAT: CMPB 
BNE 


JSR 


MOVB 
RANXIT: MOV 
RTS 


#2. 2 SNCODE (RO) 

rc. GETPAT 
(RO) 

at, SONEXTCR RO) 


sROUTINE TO SELECT A PATTERN 


GETPAT: MOV 
TST 


1$: JSR 


2$: ASL 


#16.,R5 
PATTERN 


1$ 
PATTERN,RS 
2$ 


PC ,$RAND 
Beet then 


GETPAT 
R5 
PC 


SEQ 0108 
WORD COUNT TO Al! ON TRACK. 
WRITE OPERATION 
SWRITTING PARTIAL SECTOR ? 
BR IF 


L 
SWRITE AT (LEAST “ONE SECTOR 
;WORM COUNT 


sWRITE ns ? 


GET Por team CODE 
;MOVE PATTERN CODE TO CONTROL BLOCK 


3SET PARAMETERS SELECTED INDICATOR 
; RETURN 


cEIFCT PATTERN 
ENABLE RANDOM PATTERN SELECTION ? 


USE INDEXED PATTERN 
:CYCLE THE RANDOM NUMBER GENERATOR 


GE 
+ ig ZERO SELECTED ? 
:MAKE CODE INTO TABLE INDEX 
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Q@ 0109 
MAIN PROGRAM ve 


azo 


1 sTHIS ROUTINE IS USED TO CHECK ADDRESS LIMITS BEFORE THE NEXT COMMAND 
é [1S PERFORMED, ALSO, IT WILL CHECK FOR MAXIMUM ADDRESS LIMITS TO LOOK 
[FOR AN END TO THE SEQUENTIAL ADDRESSING AND WILL MAKE SURE THE CURRENT 
‘ : ADDRESS 1S NOT THE "BAD SECTOR FILE' 
6 : MOV #0PB,RO :DPB ADDRESS 
7 : MOV #POINTER,RG ‘POINTER TO SECTOR STORAGE ($SEC OR SNSEC) IN DPB 
8 ; JSR PC, CKLMTS [CALL ADDRESS LIMITS ROUTINE 
9 : BR 274 SRETURN HERE IF NOT END OF SEQUENTIAL ADDRESSING 
10 ; oo TELSE, RETURN HERE TO RESET DISK ADDRESS 
i [RO = DPB ADDRESS BEFORE CALLING THE ROUTINE 
13 [RG = POINTER TO SECTOR STOR AGE BEFORE CALLING THE ROUTINE 
15 021332 060004 CKLMTS: ADD RO,RG sPOINT TO SECTOR STORAGE POINT IN DPB 
16 021334 026460 000002 000136 CMP 2(R4) ,MINCYL(RO) CYLINDER ADDRESS BELOW MIN. ? 
17 021342 002003 BGE 1$ ; 
18 021344 016064 000136 90000 MOV MINCYL (RO) ,2(R4) ;RESET CYLINDER TO MIN. 
19 021352 126460 000001 000142 1$: CMPB —s-«1.(RG) ,MINTRK (RO) "1S TRACK ADDRESS BELOW MIN. ? 
20 021360 002003 BGE 2$ :BR IF N 
21 021362 116064 000142 000001 MOVB  MINTRK(RO),1(R4) RESET TRACK TO MIN. 
22 021370 121460 000146 2$: CMPB  —s-« (RG) LMINSEC (RO) 1S SECTOR ADDRESS BELOW MIN. ? 
23 021374 002002 BGE 3$ BR I 
24 021376 116014 000146 MOVB  MINSEC(RO),(R4) :RESET SECTOR TO MIN. 
26 ;LOOK FOR MAXIMUM LIMITS, FOR END OF SEQUENTIAL ADDRESSING AND 
27 TALSO CHECK THAT ADDRESS IS NOT ‘BAD SECTOR FILE’ 
29 021 121460 000144 3$: CMPB  —s- (RG) ,MAXSEC(RO) 31S SECTOR ADDRESS AT MAXIMUM ? 
30 021 003404 BLE § BR I 
31 021 116014 000146 MOVB = MINSEC(RO),(R4) RESET SECTOR ADDRESS 
32 021 105264 000001 4$: INCB—s-: 1(R4) MENT 10 NEXT TRACK ADDRESS 
33 021 126460 000001 000140 S$: CMPB 1(Ra) SMAXTRK (ROD ” -1S TRACK ADDRESS OVER MAXIMUM ? 
34 021 003407 BLE 6$ No 
35 021 116014 000146 MOVB  MINSEC(RO), (RG) :RESET SECTOR ADDRESS 
36 021434 116064 000142 000001 MOVB MINTRK(RO).1(R4) ESET TRACK ADDRESS 
37 02 005264 000002 INC 2(R4) IN CREMENT TO NEXT CYLINDER ADDRESS 
38 021446 026460 000002 000134 6%: CMP 2(R4), MAXCYL (RO) ” -1S CYLINDER ADDRESS OVER MAXIMUM ? 
39 021454 003403 BLE 7$ N 
40 0 062716 000002 ADD #2, (SP) ADJUST RETURN TO RESET DISK ADDRESS PARAMETERS 
41 0 000412 BR 8$ 
42 sCHECK NOT TO READ OR WRITE BAD SECTOR TRACK 
43 016046 000156 7$: MOV FE1(RO),-(SP) GET 1ST FE CYLINDER (LAST CYL#1) 
4 005316 DEC (SP) iLOOK AT LAST USER CYLINDER 
45 026426 000002 CMP 2(R4), (SP) ARE WE ON LAST USER EYLINDER ? 
46 001004 BNE 8$ ; 
47 126460 000001 000154 CMPB —s-: 1 (RG) , TRKLMT (RO) -1S THIS THE BAD SECTOR TRACK ? 
48 001742 BEO 4$ :BR IF YES 
49 000207 8$: RTS PC RETURN 


G6 9 


CZRJOAO RPO? PERF EXER MACRO V04.00 1-JAN=83 12:06:52 PAGE 25 SEQ 0110 
MAIN PROGRAM 
1 sTHIS ROUTINE IS USED TO CALCULATE AND CHECK THE WORD COUNT FOR THE 
é sDRIVE THAT IS TO DO A DATA TRANSFER ON THE MAXIMUM TRACK OF THE MAXIMUM 
CYLINDER. IF THE CALCULATED MAXIMUM WORD COUNT, EXCEEDS THE DESIRED WORD 
4 sCOUNT (CONTENTS OF R5), THEN THE DESIRED WORD COUNT IS CHANGED, THAT 
2 :THE WORD COUNT WILL NOT CAUSE A TRACK OVERFLOW DURING THE TRANSFER. 
7 : MOV #DPB,RO :DPB ADDRESS 
: MOV #POINTER,RG :POINTER TO SECTOR STORAGE ($SEC OR SNSEC) IN DPB 
9 ; JSR PC, CHKWC [CALL CHECK WORD COUN T 
19 3 RETURN RETURN WITH wt CONVAINING THE DESIRED WORD COUNT 
i 7RO = DPF ADDRESS BEFORE CALLING THE ROUTINE 
1 7R4 = POINTER TO SECTOR STORAGE BEFORE. CALLING THE ROUTINE 
3 3R5 = DESIRED WORD COUNT BEFORE CALLING THE ROUTINE 
16 021512 060004 CHKWC: ADD RO,RG ZPOINT TO SECTOR STORAGE POINT IN DPB 
17 021514 105760 000146 TSTB = MINSEC(RO) TALLOW SPIRAL RD/WRT ? 
18 021520 001023 BNE “BR IF NO 
19 O21 5¢2 126060 000144 000152 CMPB == MAXSEC(RO),SECLMT(RO)  ;ALLOW SPIRAL RD/WRT ? 
20 021530 001017 BNE sBR IF 
21 021532 105760 000142 TSTB = MINTRK(RO) TALLOW SPIRAL RD/WRT ? 
22 021536 001010 BNE 
23 021540 126060 000140 000154 CMPB MAXTRK(RO), TRKLMT (RO) sALLOW SPIRAL RD/WRT ? 
24 021546 901004 BNE 1$ :BR IF NO 
25 WHEN, SPIRAL RD/WRT IS ALLOWED, THEN CHECK 
26 :TO MAKE SURE YOU DO NOT SPIRAL OVER MAXIMUM 
27 STRACK ON MAXIMUM CYLINDER 
28 021550 026064 000134 000002 CMP MAXCYL (RO) 12(R4)" sO0N MAXIMUM CYLINDER ? 
29 021556 001022 BNE NO 
30 021560 126064 000140 000001 1$: (MPR MAXTRK(RO),1(R4)~ sO0N MAXIMUM TRACK ? 
31 021566 001016 BNE 4$ :BR IF NO 
32 ZADJUST WORD COUNT TO FIT ON REMAINDER OF TRACK 
33 021570 111404 2$: MOVB _—(R4),, RG GET STARTING SECTOR ($SEC OR SNSEC) ADDRESS 
34 021572 016046 000144 MOV MAXSEC (RO) ,=(SP)" AXIMUM SECTOR 
35 021576 160416 SUB R4, (SP) :GET nunieR SECTORS TO BE XFERD 
36 021600 005004 CLR RG CLEAR 
37 021602 062704 000400 3$: ADD #256. RG ADD 1 SECTOR OF WORDS, TO R4 
38 021606 005316 DEC (SP) [DONE ALL SECTORS VET 
39 021610 002374 BGE 3$ 'BR IF N 
40 021612 005726 TST (SP)+ SRESTORE STACK 
41 021614 020504 CMP R5,R4 :T00 MANY WORDS FOR TRACK ? 
42 021616 003420 BLE $ [BR IF NO 
43 021620 010405 MOV R4,RS [YES, CHANGE WORD COUNT 
46 921622 000416 BR 5$ 
46 021624 016046 000156 4$: MOV FE1(RO),-(SP)  ;GET 1ST FE CYLINDER (LAST CYL+#1) 
47 021630 005316 DEC (SP) iL 00K AT LAST USER CYLINDER 
48 021632 026426 000002 CMP 2(R4), (SP) APF Wr 7, LAST USER CYLINDER ? 
49 021636 001010 BNE 5$ :BR IF NO 
50 021640 016046 000154 MOV TRKLMT(RO),-(S>) :GET LAST TRACK 
51 021644 005316 DEC (SP) LOOK AT’NEXT TO LAST TRACK 
3 021646 005046 CLR -(SP) :PUSH STACK 
53 021650 116416 000001 MOVB 1(R4), (SP) [GET CURRENT TRACK 
54 021654 022626 CMP (SP)+.(5P)¢ [1S IT TRACK BEFORE BAD SECTOR TRACK ? 
55 021656 001744 BEO 2$ 7BR IF YES (DON'T ALLOW SPIRAL TO BAD SEC TRk) 
56 021660 000207 5$: RTS PC 
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1 zOQUT IME TO GET THE PREVIOUSLY SELECTED PARAMETER VALUES 
g : MOV #DP8,RO :DPB ADDRESS 
4 ; JSR PC, GENPAR ‘GENERATE THE PARAMETERS 
5 : JSR PC,LODPAR :LOAD THE PARAMETERS JUST GENERATED 
8 : RETURN 
8 021662 010546 LODPAR: MOV R5,-(SP) :SAVE RS 
9 021664 105760 000026 TSTB =—s-s SPACK (RO) :*T* COMMAND FOR THIS DRIVE ? 
10 021670 001127 BNE $ “BR IF N 
11 021672 116060 000166 000027 MOVB $RPCS1(RO).$PREVO(RO)  ;SAVE CURRENT PARAMETERS 
i 921700 142760 177701 000027 BICB #*C76,$PREVO(RO) *STRIP GO,AND IE BITS 
13 021706 132760 000006 000122 BITB #6, $NCODE(RO)  ;SEE IF NEXT OPERATION IS READ OR wRITE 
14 021714 001007 BNE 1$ “BR IF EITHER 
15 021716 016060 000012 000034 MOV SCYL(RO),SPREVA+2(RO)  ;SAVE STARTING CYLINDER 
16 0¢17¢6 016060 000010 000032 MOV $SEC (RO) SPREVA(RO) sSAVE STARTING SECTOR AND TRACK o 
18 021734 004737 024364 1$: JSR PC ,READDR “GET THE DECREMENTED SECTOR AND TRACK ADDRESSES 
19 021740 012660 000034 MOV (SP) +, SPREVA+2(RO) CYLINDER ADDRESS 
20 021744 112660 000033 MOVB (SP) +, $PREVA+1 (RO) sTRACK ADDRESS 
21 021750 112660 000032 MOVB (SP) +, $PREVA(RO) :SECTOR ADDRESS 
23 021754 005337 022176 2s: DEC LTCNT#2 :REPEAT THIS COMMAND AGAIN ? 
24 021760 002007 BGE 3$ ‘BR IF YES 
25 021762 013737 022174 022176 MOV ITCNT,ITCNT#+2 RESTORE ITERATION COUNT 
26 021770 032777 000100 157156 BIT #SW06,aSWR sLOOP ON PREVIOUS VALUES (SW6=1) ? 
27 021776 001413 BEQ 4$ : F NO 
28 022000 122760 000151 000002 3$: CMPB  =—s_s #WCKD, SCOMND (RO) :1S COMMAND A WRITE CHECK DATA ? 
29 022006 001060 BNE : FON 
30 022010 112760 000002 000024 MOVB #2,$CODE(RO) “CODE FOR WRTDAT 
31 022016 112760 000161 000002 MOVB #WRTDAT,$COMND(RO) :PU; WRITE DATA COMMAND BACK FOR LOOP 
3 022024 000451 BR 63 
34 022026 116060 000122 000024 4$: MOVB SNCODE (RO) , SCODE (RO) SLOGICAL CODE FOR OPERATION 
35 022034 116005 000122 MOVB  $NCODE(RO),RS  ;LOAD RS FOR USE AS TABLE INDEX 
36 022040 116560 002076 000002 MOVB COMTBL(RS5),$COMND(RO) | ;COMMAND CODE 
37 022046 122760 000151 000002 CMPB so @WCKD, SCOMND (RO) *1S NEW COMMAND A WRITE CHECK DATA ? 
38 022054 001012 BNE :BR IF NO 
39 022056 122760 000060 000027 CMPB #60,$PREVO(RO) :WAS PREVIOUS COMMAND A WRITE DATA ? 
40 022064 001431 BEQ : F 
41 022066 112760 000171 000002 MOVB  #RDDAT, SCOMND(ROS SCHANGE WRITE CHECK TO READ DATA COMMAND 
4e 022074 112760 000004 000024 MOVB #4,$CODE(RO) :CODE NUMBER CHANGED TO READ DATA 
44 022102 116060 000123 000030 5$: MOVB  $NPATC(RO),$PATTC(RO)  ;PATTERN CODE 
45 022110 016060 000124 000010 MOV SNSEC (RO) ,$SEC(RO) :TRACK AND SECTOR ADDRESSES 
46 022116 016060 000126 000012 MOV SNCYL(RO) ,SCYL(RO) -CYLINDER ADDRE 
47 022124 012760 000400 000022 MOV #256.,$SSEC(RO) :INITIAL VALUE OF SECTOR SIZE 
48 022132 132760 000001 000024 BI1TB #1, $CODECRO) s HEADER RATION 
49 022140 001403 BEQ 6 :BR IF NO 
50 022142 062760 000002 000022 ADD #2,$SSEC(RO) “ADD HEADER SIZE 
51 022150 016060 000020 000004 6$: MOV SWRDL (RO), SWCNT (RO) ;GET WORD COUNT AND 
38 022156 016060 000020 000120 MOV SWROL (RO), SHLDWC (RO) *HOLD WORD FOR *RELBUF* ROUTINE 
53 022164 005460 000004 NEG SWCNT(RO) MAKE IT 2°S COMPLEMENT 
54 022170 012605 MOV (SP)+,R5 SRESTORE RS 
38 022172 000207 RTS PC pRETU 
57 022174 0600000 000000 ITCNT: .WORD 0,0 s"ITCNT® CONTAINS THE NUMBER OF TIMES TO 
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MAIN PROGRAM 


000002 


CMPRES: 


1$: 


MOV 
JSR 
RETURN 


sROUTINE TO COMPRESS A LIST 
; CALL: 


#ADDRS,R1 
PC,CMPRES 
2(R1),(R1) 
1$ 

(R1)¢ 
CMPRES 

PC 


HE COMMAND 
* IS THE COUNTER 


2> 
4 
* 

Nm- 


COMPRESS LIST STARTING AT THIS ADDRESS 


;COMPRESS THE TABLE IN 81 
7BR WHEN ZERO FOUND 

; INCREMENT R1 

sCONTINUE COMPRESSING TABLE 
sRETURN 


SEQ 0112 
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1 
ERROR MESSAGE GENERATION ROUTINES SEQ 0113 


"s 


1 .SBTTL ERROR MESSAGE GENERATION ROUTINES 
: :PRINT LINE 1 OF ERROR MESSAGE: 
: :"HH:MM:SS' 
6 022214 032777 002000 156732 LINE1: BIT #Swi0,aSwR sSWITCH 10 SET ? 
7 022222 001402 BEQ 1$ “BR IF NOT 
a Oeeees 104401 001176 TYPE ,SBELL SRING THE BELL 
9 02 5 0 032777 020000 156716 1$: BIT #Sw13,aSwR ‘INHIBIT TYPEQUT (SW13=1) ? 
10 020 36 001010 BNE 2$ ‘BR IF YES 
11 022240 104401 001203 TYPE »SCRLF 3 CR=LF 
i Oeeeus 104401 001203 TYPE SCRLF + CR=LF 
13 022250 004737 026146 JSR PC STIME : TYPE ELAPSED TIME 
14 022254 104601 056531 TYPE »BLNKS1 ‘TYPE 1 BLA 
15 022260 000207 2$: RTS PC ‘RETURN & TYPE DESCRIPTION 
17 :PRINT LINE 2 OF ERROR MESSAGE 
18 ;"PRESENT ORDER = XXXX PREVIOUS ORDER = XXxX" 
19 :** ERROR AT BAD TRACK/SECTOR' 
20 :"DRIVE RPCS1 RPCS2  RPDS1 RPERI RPER2 RPER3 RPECI' 
21 :"RPEC2 RPWC  RPBA  RPDA  RPAS  RPLA RPDB RPMRI’ 
22 ;'RPDT —RPSN_ | RPOF RPDC RPCC —- STATUS" 
23 :"RPBAE RPCS3* (RH7O ONL 
24 3 {BUS ADDRESS 0 OR WORD COUNT ‘No “Not ,CONSISTENT* 
$8 "BUFFER ADR = XXXXXX WRD cnt = XXX  NMBR WRDS XFRD = XXX* 
28 022262 LINE2: 
22262 010346 MOV R3,-(SP) ;;PUSH R3 ON STACK 
22264 010446 MOV R4,=(SP) ‘PUSH R4 ON STACK 
22266 010546 V R5.=(SP) i PUSH R5 ON STACK 
29 022270 104414 001203 DISPLY ,$CRLF LF 
30 022274 37 022422 LR i$ SELEAR MESSAGE ADDRESS STORAGE 
31 022300 04 CLR RG ;WORKING R GIS 
32 022302 37 054536 022422 MOV #LIN2C,4$ “ADDRESS OF "PRESENT ORDER = ° MSG 
33 022310 04 000166 MOVB $RPCS1(RO),R4 GET THE OPCOD 
34 022314 04 177701 BIC #*C76,R4 :SAVE ONLY SIGNIFICANT BITS 
25 022320 37 022356 JSR PC,1$ :TYP £ THE FIRST MNEMONIC 
36 32506 37 022426 TST 5$ i see IF MNEMONIC ENTRY FOUND 
37 022330 40 BEQ LINEA NOT 
38 022332 37 054556 MOV LIN2P,4$ ADDRES S OF “PREVIOUS ORDER = * MSG 
39 022340 116004 000027 MOVB SREVOLROD, R4 : PREVIOUS OPERATION CODE 
40 022344 042704 177701 BIC *C76,R4 [SAVE ON. SIGNIFICANT BITS 
41 32390 004737 022356 JSR PC. 1$ iTYPE THE PREVIOUS MNEMONIC 
42 022354 000426 BR LINE2A CONT INUE 
43 022356 005005 1$: CLR [CLEAR THE TABLE INDEX 
44 022360 126504 002104 2$: CMPB = OPTBL(R5),R4 LOOK FOR THE OPC 
45 022364 001405 BEQ :6R WHEN OPCODE COUNT = OPCODE 
46 5 002104 1TSTB = OPTBL(R5) LOOK FOR END OF TABLE 
47 2 BMI 3$ N 
48 5 INC R5 : INCREMENT THE POINTER 
49 0 BR 2$ ‘CONTINUE = NOT END OF TABLE 
50 § 3$: ASL R5 [SHIFT INDEX 
51 5 ASL R5 SSHIFT THE INDEX 
3 5 ASL R5 SSHIFT THE INDEX 
5 7 002124 MOV #MNTBL 5S TADDRESS OF ASCII TEXT TABLE 
54 7 022426 ADD R5,5$ TADD THE INDEX 
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55 0224 9 104414 DISPLY sTYPE IT 
56 022422 000000 4$: .WORD 0 SADDRESS OF "PRESENT® OR ‘PREVIOUS’ MESSAGE 
57 0224624 104414 DISPLY [TYPE THE OPERATION MNEMONIC 
58 022426 000000 5$: “WORD 0 SADDRESS OF MESSAGE 
29 022430 000207 RTS PC [RETURN TO MAIN ROUTINE 
61 022432 005737 001336 LINE2A: TST BADSEC ;PRINT THE BAD SECTOR LINE ? 
6¢ 022436 001404 BEQ LINE 2B ‘BR IF NOT 
63 022440 104414 201203 DISPLY ,$CRLF CRLF 
64 022444 1044614 054577 DISPLY ,LIN2S sERROR ADDRESS DEFINED 4S BAD AREA 
65 022450 104414 001203 LINE2B: DISPLY ‘$CRLF > CReLF 
66 0 454 104414 054126 DISPLY ‘DH14 ‘STANDARD RPO7 REGISTER HEADER 
67 022460 013746 001320 MOV BRVNO,-(SP) [PUT THE DRIVE NUMBER ON THE STACK 
68 022466 004737 024306 JSR PC,LINOCT : TYPE I 
69 022470 104414 056530 DISPLY ,BLNKS2 [TYPE 2 BLANK 
70 022474 012705 054450 MOV #DT14,R5 SREGISTER INDEXES 
4 022500 004737 022662 JSR PC,3$ [PRINT THE REGISTERS 
ig 022506 032777 000040 156442 BIT #SW05,aSwWR :PRINT THE OPTIONAL REGISTERS ? 
74 022512 001031 BNE 1$ [BR IF NOT 
75 022514 104414 054225 DISPLY ,DH15 SSTANDARD RPO7 REGISTER HEADER 
76 022520 012705 054470 MOV #DT15,R5 [SECOND DATA LINE 
a 022524 004737 022662 JSR PC,3$ [PRINT THEM 
79 022530 104414 054324 DISPLY ,DH16 :STANDARD RPO7 REGISTER HEADER 
BO 022534 012705 054512 MOV #DT16,R5 STHIRD DATA LINE 
81 022540 004737 022662 JSR PC,3$ [PRINT THE REGISTERS 
83 022544 013746 001234 MOV SCPUOP,-(SP) sCHECK THE CPU (RH) TYPE 
84 022550 042716 003777 BIC #°C174000,(SP) LEAVE THE CPU BITS 
85 022554 022726 030000 CMP #30000,(SP)* SEE IF RH70 
86 022560 001006 E 1$ :BR IF NO 
87 022562 104414 054404 DISPLY ,DH17 sSTANDARD RPO7 REGISTER HEADER 
88 022566 012705 054530 MOV #DT17,R5 [OPTIONAL FOURTH DATA LINE 
89 022572 004737 022662 JSR PC, SPRINT THE REGISTERS 
90 022576 032760 000100 000016 1$: BIT #BIT6,$TATUS(RO) DATA ERROR ? 
91 022604 001422 BEQ 2$ :BR IF NOT 
92 022606 016046 000020 MOV SWRDL(RO),-(SP) : TRANSFER SIZE 
93 022612 066016 000170 ADD SRPWC(RO).(SP) ADD REMAINING WORD COUNT 
94 022616 006316 ASL (SP) [CONVERT TO AN BYTE INCREMENT 
95 022620 066016 000006 ADD SBUF (RO), (SP) sBUFFER STARTING ADDRESS 
96 022694 022660 000172 CMP (SP)+,$RPBA(RO) :CORRECT BUFFER ADDRESS ? 
97 022630 001410 EQ 23 ‘BR IF YES 
98 022652 104414 055226 DISPLY ,EM46 :"BUS ADDRESS AND WORD COUNT ARE NOT CONSISTENT’ 
99 022636 104414 00120 DISPLY ‘$CRLF CRLF 
100 022642 004737 022754 JSR PCLINE3D [PRINT LINE 3D OF ERROR MESSAGE 
101 022666 004737 023366 me JSR PC. LINES [PRINT LINE 4 OF ERROR MESSAGE 
022652 012605 MOV (SP)+,R5 3;POP STACK INTO RS 
022654 012604 MOV (SP)+,R4 7;POP STACK INTO R4 
022656 012603 MOV (SP)+.R3 [:POP STACK INTO R3 
105 022660 000207 RTS PC [RETURN TO ERROR PROCESSING ROUTINE 
105 022662 012546 3$: MOV (R5)+,=(SP) :PUT THE REGISTER INDEX ON THE STACK 
106 022664 060016 ADD RO, (SP) TADD DRIVE'S TABLE ADDRESS 
107 022666 017646 000000 MOV a(SP) ,-(SP) * VALUE 
108 022672 004737 024306 JSR PC,LINOCT [TYPE IT 
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109 022676 005726 TST (SP)+ sCORRECT THE STACK POINTER 

110 0 ; 00 104414 056530 DISPLY iBENKS2 : TYPE § BLANKS 

111 022704 005719 TST (R5) SAT END OF LINE ? 

11¢ 922706 00136 BNE 3$ :BR IF NOT 

115 022710 104414 001203 4$: DISPLY SCRLF sCReoLF 

14 022714 000207 RTS PC ‘RETURN 

116 sPRINT LINE 3 OF ERROR MESSAGE 

TA s"ERROR AT CCC TT SS PREVIOUS ADR = CCC TT SS‘ 

119 022716 104414 054633 LINE3: DISPLY ,LINM3 sLINE 3 ENTRANCE 

120 022722 000517 BR CIN3.1 SFINISH PRINTOUT 

122 ;PRINT LINE 3A OF ERROR MESSAGE 

123 :"START CYL= CCC END CYL= CCC* 

125 022724 104414 054651 LINE3A: DISPLY ,LINN3 sLINE 3A ENTRANCE 

126 022730 000514 BR CIN3.1 [FINISH ERROR LINE 

128 ;PRINT LINE 38 OF ERROR MESSAGE 

129 ;"START CYL= CCC END CYL= CCC ACTUAL CYL= CCC’ 

131 022732 004737 023270 LINE3B: JSR PC,LIN3.3 ZLINE 3B ENTRANCE 

132 022736 104414 001203 DISPLY ,$CRLF 

133 022742 000207 RTS PC 

135 sPRINT LINE 3C OF ERROR MESSAGE 

136 ;"START CYL= CCC END CYL= CCC ACTUAL CYL= CCC TRk= TT’ 

138 022744 004737 023270 LINE3C: JSR PC -LINS.3 SLINE 3C ENTRANCE 

139 022750 000137 023322 MP LIN3.4 :FINISH MESSAGE 

141 ;PRINT LINE 3D OF ERROR MESSAGE 

Pk s"RPBA = XXXXKX RPWC = XXXXXX* 

144 022754 032777 0000460 156172 LINE3D: BIT #SW05,aSWR pSWITCH 5 SET ? 

145 022762 001416 BEQ 1$ ‘BR IF IT 1S 

146 022764 104414 055010 DISPLY LINB3 ;"RPBA = ° 

147 022770 016046 000172 MOV $RPBA(RO) ,-(SP) ;BUFFER ADDR REG CONTENTS 

148 022774 004737 024306 PC,LINOCT sCONVERT TO OCTAL AND TYPE IT 

149 023000 104414 055017 DISPLY LINW :* RPWC = ° 

150 023004 016046 000170 V $RPWC(RO),-<(SP) :WORD COUNT REGISTER CONTENTS 

151 023010 004737 024306 SR PC,LINOCT sCONVERT TO OCTAL AND TYPE IT 

152 925014 104414 001203 DISPLY ,$CRLF 

133 023020 000207 1$: RTS PC 

155 sPRINT LINE 3& OF ERROR MESSAGE 

136 s"START CYL = CCC START TRK = TT START SEC = SS° 

158 023022 104414 054712 LINE3E: DISPLY ,LINS3 :"START CYL = ° 

159 023026 016046 000012 MOV $CYL(RO),-(SP) MOVE CYL TO STACK 

160 023032 004737 024340 SR PC,LINDEC STYPE IT IN DECIMAL 

161 023036 104414 056530 DISPLY -BLNKSE [TYPE 2 BLANK 

162 02504¢ 104414 055030 DISPLY ‘LINST S*START TRK = 

163 23046 005046 CLR =(SP) [CLEAR STACK 

164 023050 116016 000011 MOVB $TRK(RO),(SP) TRACK TO STACK 

165 023054 004737 024340 JSR PC,LINDEC STYPE IT IN DECIMAL 


g 
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166 023060 104414 056530 DISPLY ,BLNKS sTYPE 2 BLANKS 
167 02 064 104414 055044 DISPLY BLINKS :"START SEC = ° 
168 023070 005046 CLR =(SP) ?CLEAR STACK 
169 023072 116016 990010 MOVB  $SEC(RO),(SP) SECTOR ADDR TO STACK 
170 023076 004737 024340 JSR PC LINDEC STYPE IT IN DECIMAL 
171 023102 104414 001203 DISPLY ,$CRLF 
7 023106 000207 RTS PC 
174 ;PRINT LINE 3F OF ERROR MESSAGE 
17? s"RPDA = XXXXXX RPCA = XXXXXX° 
177 023110 032777 000040 156036 LINE3F: BIT #SW5,aSWR sSWITCH 5 SET ? 
178 023116 001420 BEQ 1$ ‘BR IF NOT 
179 023120 104414 055001 DISPLY ,LINDA3 [*RPDA = ' 
180 023124 016046 000174 OV $RPDA(RO),-(SP) :PUT SECTOR/TRACK ADDRESS ON THE STACK 
781 023130 004737 024306 JSR PC,LINOCT > TYPE It 
182 023134 104414 056530 DISPLY ,BLNKS2 STYPE 2 BLANKS 
183 023140 104414 054771 DISPLY ‘LINCA3 :" RPDC = ' 
184 023144 016046 000222 MOV $RPDC(RO),<(SP) :PUT DESIRED CYLINDER ADDRESS ON THE STACK 
185 023150 004737 024306 JSR »LINOCT ‘TYPE IT 
186 023154 104414 001203 DISPLY ,$CRLF 
187 023160 000207 1$: RTS PC 
189 :'CCC TT SS PREV ADR = CCC TT SS' 
191 023162 004737 024364 LIN3.1: JSR PC,READDR :DECREMENT TRACK AND SECTOR ADDRESS 
192 023166 004737 02 JSR PCLINDEC :TYPE IT IN DECIMAL 
193 023172 104414 05 DISPLY , :PRINT 'T* 
194 023176 02 SR PC,LINDEC ‘TYPE TRACK IN DECIMAL 
195 023202 05 DISPLY ,S SPRINT 'S' 
196 023206 02 SR PC,LINDEC [TYPE SECTOR ADDRESS 
197 023212 05467 DISPLY ,LINP3 ‘PRINT "PREV ADDR' 
198 023216 00 0 $PREVA+2(RO),-(SP) ;PREVIOUS CYLINDER 
199 023222 02 5 PC,LINDEC sTYPE IT IN DECIMAL 
200 023226 05 DISPLY ,T : tT 'T 
201 023232 CLR =(SP) “MAKE ROOM ON THE STACK 
202 023234 00 MOVB  $PREVA+1(RO),(SP) ;PREVIOUS TRACK ADDRESS 
203 023240 02 JSR PC,LINDEC sTYPE IT IN DECIMAL 
204 023244 05 DISPLY ,S : “3° 
205 023250 CLR =(SP) :MAKE ROOM ON THE STACK 
206 023252 00 MOVB  $PREVA(RO),(SP) “;PREVIOUS SECTOR DDRESS 
207 023256 02 JSR PC,LINDEC sTYPE IT IN DECIMAL 
208 023262 00 DISPLY ,$CRLF 
209 023266 TS PC 
gi] :"START CYL= CCC END CYL= CCC’ 
$18 LIN3.3: DISPLY ,LINS3 sLINE °3B & 3C' ENTRANCE 
214 MOV $PREVA+2(RO),-(SP) ;PREVIOUS CYLINDER 
215 JSR PC,LINDEC sTYPE IT IN DECIMAL 
216 DISPLY ,LINEN3 :PRINT ' END CYL* 
17 MOV $RPDC(RO),-(SP) :PRESENT CYLINDER 
18 JSR »LINDEC :TYPE IT IN DECIMAL 
19 RTS 
220 
221 ;"ACTUAL CYL= CCC TRK= TT" 
222 
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223 0 104414 054742 LIN3.4: DISPLY ,LINA3 :PRINT "ACTUAL CYL= ° 
226 0 013746 Fete MOV EYLNDR,-(SP) ACTUAL CYLINDER 
225 0 4 16 910000 BIC #B1T12. (SP) [CLEAR THE FORMAT BIT 
6 023336 00473 2434 JSR PC ,LINDEC :TYPE IT IN DECIMAL 
37 023342 104414 054761 DISPLY ,LINT3 PRINT 'TRK= ° 
B 023346 005046 CLR =(SP) SCLEAR STACK WORD 
$09 023350 116016 000175 MOVB $RPDA+1(RO),(SP)°;PUT TRACK ON STACK 
230 023354 004737 024340 JSR PC,LINDEC :TYPE IT IN DECIMAL 
231 023360 104414 001203 DISPLY ,$CRLF 
$3¢ 023364 000207 RTS PC 
934 :PRINT LINE 4 OF ERROR MESSAGE 
234 ; "BUFFER ADR= XXXXXX WRD CNT= XXXX NMBR WRDS XFRD= XXX’ 
37 023366 032760 000100 000016 LINE4: BIT WBITO6,$TATUS(RO) ;DATA ERROR ? 
238 023374 001427 BEQ 1$ : 
239 023376 104414 055060 DISPLY ,LINMG [PRINT "BUFFER ADR= ° 
240 023402 016046 000006 MOV $BuF (RO) -(SP) ;BUFFER ADDR ON STACK 
241 923406 004737 024306 JSR PC,LINOCT :CONVERT TO OCTAL & PRINT 
242 023412 104414 055076 DISPLY ,LINS4 [PRINT "WRD CNT= ° 
243 023416 016046 000020 MOV $WROL(RO),-(SP) :BUFFER SIZE 
244 023422 004737 024340 JSR PC,LINDEC STYPE IT IN DECIMAL 
245 023426 104414 055112 DISPLY ,LINX4 :* NMBR WROS XFRD = ° 
246 023432 016046 000172 OV $RPBA(RO),-(SP) “;VALUE IN BUFFER ADDR REGISTER 
247 023436 166016 000006 SUB SBUF(RO),(SP) ;SUBTRACT STARTING ADDRESS 
248 023442 006216 ASR (SP) sCONVERT INTO A WORD COUNT 
249 023444 004737 024340 JSR PC,LINDEC sTYPE IT IN DECIMAL 
250 023450 104414 001203 DISPLY ,$CRLF CRLF 
231 023454 000207 1$: RTS RETURN 
253 sPRINT LINE © OF ERROR MESSAGE 
$3¢ s"EXPCTD DATA= XXXXXX RECEVD DATA= XXXXXX WORD POS= XXX’ 
256 023456 104414 055135 LINES: DISPLY ,LINDS sPRINT "EXPCTD DATA® 
257 023462 162760 000002 000172 SUB #2, $RPBA(RO) ‘BACK THE ADDRESS UP 
258 023470 013746 001234 MOV $CPUOP,-(SP) :CHECK THE CPU (RH) TYPE 
259 023474 042716 003777 BIC #°C174000,(SP) LEAVE THE CPU BITS 
260 023500 022726 030000 CMP #30000,(SP)+ SEE IF RH70 
261 023504 001012 BNE 1$ : NO 
262 023506 162769 000004 000172 SUB #4 ,SRPBA(RO) *BACKUP THE BUFFER POINTER 
263 023514 032760 004000 000240 BIT #B1T11,$RPCS3(ROS *SEE WHICH WORD HALF DIDN'T COMPARE 
264 023522 001403 BEO $ s1F €Q, EVEN HALF DIDN'T COMPARE 
265 02354 162760 900002 000172 SUB #2,$RPBA(RO) | :BACKUP THE BUFFER POINTER AGAIN 
66 Seeae o7ons 8 017 1$: MOV @SRPBA(RO) ,-(SP) s"EXPCTD® DATA = AT THE BUFFER LOCATION 
67 023536 00473 4306 JSR PC,LINOCT sTYPE IT 
68 023542 104414 05515 DISPLY ,LINBS SPRINT "RECEVD DATA’ 
269 0 3546 016046 000¢10 MOV $RPDB(RO),-(SP) :RECEVD DATA FROM BUFFER 
370 023552 004737 024306 JSR PC,LIN STYPE IT 
71 023556 016046 000170 MOV SRPWC(RO),-(SP) :WORD LENGTH ON STACK 
272 023562 066016 000020 ADD SWRDL(RO). (SP) MAKE INTO A POSITIVE N 
273 023566 005046 CLR =(S “UPPER DIVIDEND TO ZERO 
274 023570 016046 000022 MO SSSEC(RO),-(SP) :SECTOR SIZE ON THE STACK 
275 023574 004737 032046 JSR PC, $DIV *DIVIDE WORDS XFERED BY SECTOR SIZE 
276 023600 012616 MOV (SP) +, (SP) SMOVE REMAINDER UP THE STACK 
377 023602 005316 DEC (SP) “DECREMENT WORD POSITION BY 1 
78 0 3604 032760 040000 000176 BIT #B1T14,$RPCS2(ROS 71S "WCE*® SET ? 
279 023612 001416 BEQ 2$ :BR IF NO 
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Doc VVWWIVWIOWs 
ae CHM CF E-O 
Dam NNDNOCO aM I0F%< 


;PRINT LI 
; "HEADER 


LINESA: 


PRINT LINE 58 


3 "RPEC1T = XXXXXX 


LINESB: DISPLY 
MO 


6 
EC 
L 
L 


sPRINT LINE 6A 


OF 
C 


aa 1-JAN=83 12:06:52 PAGE 27-5 


$cPuOP -(5P) sCHECK THE CPU (RH) TYPE 
#°C174600,(SP) LEAVE THE cPU U BITS 
#30000, (SP) + 3 SEE IF ht? 
#2, (SP) SUBTRACT 2 FOR A DOUBLE WORD 
#B1T11,$RPCS3(ROS WHICH WORD HALF "DIDN* T COMPARE 
2$ s1f £0, EVEN HALF DIDN® T COMPARE 
(SP) SUBTRACT 1 FOR AN ODD WORD 
LINPS ‘PRINT "WORD POS' 
PC ,LINDEC ‘TYPE THE POSITION 
»$CRLF 
PC 
OF THE ERROR MESSAGE 
RROR SECTOR XXXXXX XMXXXXKX MAXXXKXKX XNAAXKNX! 
»LINSS s "HEADER CONTENTS OF ERROR SECTOR 
CYLNOR,<(SP) EHEADER POSITION 
PC,LINOCT TYPE IT 
,BLNKS2 TYPE 2 BLA 
CYLNDR+2,-(SP) SHEADER Bb TTION +2 
PC, LINOCT 
/BLNKS2 t TYPE 2 BLANKS 
*LINXS 
*SCRLF 
PC 


OF ERROR MESSAGE 
RPEC2 = XXXXXX* 


RPEC1 = ° 
‘ {DUT REGISTER CONTENTS ON THE STACK 
? i 1YPE 2_ BLANKS 

( * PUT REGISTER CONTENTS ON THE STACK 
0 YPE IT 

RETURN 

SPRINT "SECTOR 1S ECC CORRECTABLE ° 


“$CRLF 
Pp 


OF THE ERROR MESSAGE 


;"SECTOR READ CORRECTLY AFTER N RETRY(S)° 


LINE6A: DISPLY 
BR 


LINC6 PRINT "SECTOR READ CORRECTLY AFTER N RETRY(S)* 
LIN6.2 :TYPE THE REST OF THE LINE 

OF THE ERROR MESSAGE 

N RETRY‘S)° 


SEQ 0118 


C2 
Ku 


C 10 


CZRJOAC RPO? PERF EXER MACRO VO04. 300 1=JAN=83 12:06:52 PAGE 27-6 SEQ 0119 
ERROR MESSAGE GENERATION ROUTINES 

336 024016 104414 055355 LINE6C: DISPLY ,LING6 s"CORRECTED ON N RETRY(S)' 

337 024022 000403 BR LIN6.2 STYPE THE REST OF THE LINE 

338 PRINT LINE 6D OF THE ERROR MESSAGE 

340 S*UNCORRECTABLE AFTER N RETRY(&)* 

329 024024 104414 055405 LINE6D: DISPLY ,LINUO6 s"UNCORRECTABLE AFTER N RETRY(S)° 

343 024030 000400 BR LIN6.2 FINISH 

336 sRETRY COUNT TYPEOUT 

358 024032 005046 LIN6.2: CLR =(SP) SCLEAR STACK 

359 024034 113716 001325 MOVB RETRY*1,(SP) | :RETRY COUNT 

360 024040 004737 024340 JSR PC ,LINDEC [TYPE IT IN DECIMAL 

361 0246044 104414 055373 DISPLY »LINR6 >" RETRY(S)" 

362 024050 104414 001203 DISPLY *SCRLF 

363 024054 000207 RTS PC 

365 sPRINT LINE 7 OF THE ERROR MESSAGE 

308 s"TOTALS; ERRORS:XXX WRDS WRITN:XXXXX X10°6 WRDS READ: XXXXX X10%6" 

377 024056 104414 055514 LINE7: DISPLY s TOTALS: ERRORS 

378 024062 016046 000102 MOV gt ATT tao), -(SP)° iT 

379 024066 004737 024340 JSR PC LINDEC ; TYPE IT’ IN SECIMAL 

380 024072 104414 955535 DISPLY ,LIN?X “PRINT ' WRDS WRITN’ 

381 024076 012746 000056 MOV HSWIOTL,-(SP) APORESS OF LOW WORD ON STACK 

382 024102 060016 ADD RO, (SP) 

383 024104 004737 037324 JSR PC. $DB2D s CONVERT 

384 024110 004737 032446 JSR PC; $SUPRL *PRINT 

385 024114 1044614 057711 DISPLY ,PERIOD ‘TYPE *,° 

386 024120 104414 09/95¢ DISPLY .MSGX10 i TYPE *"x10%6! 

387 024124 104414 05555 DISPLY -LINZR PRINT * WRDS READ* 

388 024130 012746 000066 MOV #SRTOTL,-(SP) LOW WORD ADDRESS 

389 124134 060016 ADD RO, (SP) 

390 024136 004737 037324 JSR PC. SDB2D s CONVERT 

391 024142 004737 032446 JSR PC, $SUPRL SPRINT IT 

392 024146 104414 057711 DISPLY ,PERIOD : TYPE 

393 024152 104414 057552 DISPLY .MSGX19 i TYPE *"¥10%6" 

394 024156 104414 001203 DISPLY  {$CRLF CR 

395 024162 032777 100000 154764 BIT #SW15,aSWR See. IF ‘HALT ON ERROR" = SWITCH 15 

396 024170 001401 BEQ 1$ R IF 

397 024172 009000 HALT SWITCH 15 HALT 

98 024174 000207 1$: RTS PC 

400 ;PRINT LINE 7A OF ERROR MESSAGE 

401 **TOTALS; SEEKS= XXXXX MIS POS ERRORS= XXX SKI ERRORS= XXX 

ai 024176 104414 055455 LINE7A: DISPLY ,LIN7P s"TOTALS; SEEKS= ° 

413 024202 012746 000076 MOV #SSTOTL,~(SP) [TOTAL SEEKS 

414 024206 060016 ADD RO, ¢ SLEVICE TABLE ADDRESS 

415 024210 004737 037324 JSR PC, *spb20 . CONVERT THE SEEK COUNT 

416 024214 004737 032446 JSR PC;$SUPRL SPRINT IT 

417 024220 104414 057711 DISPLY PER ob :TYPE ',° 

418 024224 104414 055432 DISPLY :* MIS POS ERRORS 

419 024230 016046 00011 MOV gh1SPOCR0) ,- -(SP)° sTOTA RATT ORS 

420 024254 00473 024540 JSR INDEC :1VPE T° IN DECIMAL 

421 024260 104414 055475 DISPLY rth Nis SkI ERRORS= 


— 


SP at et et et et et et et be bt et bt ete 


WWANWwwnropononorernonof 
NOAUESWN OO OONOUS Ww 


so 


NMOS 


32° 1-JAN-83 12:06:52 PAGE 27-7 SEQ 0120 

MOV SSKI(RO),-(SP) CONVERT & PRINT IT 
JSR PC .LINDEC STYPE IT IN DECIMAL 
DISPLY asthe *CR=LF 
BIT #SW15,aSwR [SEE IF HALT ON ERROR = SWITCH 15 SET 
BEQ 1$ “BR IF NOT 
HALT sSWITCH 15 HALT 

1$: RTS PC 

PRINT LINE 8 OF THE ERROR MESSAGE 

: "DIFFERENT ERROR DURING RETRY’ 

LINES: DISPLY ,LIN8M 
JSR PC ,LINE2 sPRINT LINE 2 OF ERROR MESSAGE 
RTS PC 

:OCTAL TYPEOUT ROUTINE 

: "mov NUM, =(SP) ;PUT THE NUMBER ON THE STACK 

; JSR PC,LINOCT 

s RETURN 

LINOCT: MOV 2(SP),-(SP) :PUT NUMBER IN PROPER LOCATION ON STACK 
JSR PC,$SB820 [CONVERT THE NUMBER TO OCTAL 
MOV (SP)+,1$ :GET THE ADDRESS OF THE ASCII STRING 
ADD #5.,18 TADDRESS THE LAST 6 ASCII DIGITS 
DISPLY ‘TYPE IT 

1$: .WORD 0 SADDRESS 
MOV (SP) +, (SP) i CORRECT THE STACK 
RTS PC RETURN 


sROUTINE Ms CONVERT THE INPUT NUMBER TO DECIMAL AND TYPE IT 
cLEFT JUSTIFIED 


: MOV NUM, =(SP) ;PUT THE NUMBER ON THE STACK 
; JSR PC, LINDEC 
; RETURN 
LINDEC: MOV 2(sp) (SP) :SET UP STACK Fok CONVERT 
JSR C,$SB2D [CONVERT IT TO DECIMAL 
JSR PC , SSUPRL ;TYPE IT, (LEFT JUSTIFIED) 
DISPLY RIOD sTYPE 
Oy (SPD9 (SP) TRESTORE STACK POINTER 


~SBTTL GENERAL SUPPORT SUBROUTINES 
257s THE SECTOR=TRACK ADDRESS 


: MOV #0PB,RO [DPB ADDRESS 

; JSR PC,READDR 

; RETURN 

:ON RETURN THE STACK CONTAINS THE FOLLOWING: 
4(SP) = SECTOR ESS 


: 2(5P) 
; (SP) 


TRACK K ADDRESS 
CYLINDER ADDRESS 


E 10 


CZRJOAO RPO? PEFF EXER MACRO V04.00 1-JAN-83 12:06:52 PAGE 27-8 SEQ 0121 
GENERAL SUPPORT SUBROUTINES 

479 024364 162706 000006 READDR: SUB #6,SP DC CREMENT THE STACK POINTER 

480 024370 016616 000006 MOV 6(SP) , (SP) sMOVE THE nee sone DOWN THE STACK 

481 024374 005066 000000 CLR 6(SP) CLEAR STACK FOR SECTOR 

482 024400 005066 ah CLR 4(SP) ;CLEAR STACK FOR TRACK 

483 024404 116066 000174 000006 MOVB SRPDACRO) ,6(SP) ;SECTOR ON STACK 

484 024412 116066 000175 000004 MOVB SRPDA+1 (RO) 4 (SPS [eee — 

485 024420 016066 000222 000002 MOV SRPOC(RO) ,2¢(SP) SCYLINDER AD ESS 

486 024426 $0378 000006 1$: TST 6(SP) ;SECTOR 

487 024432 00140 BEQ es ;BRANCH TF *s0 

488 024434 105366 000006 DECB 6(SP) pe Cnn ONE SECTOR 

489 024440 000424 BR 4$ sBRANCH i0 EX! 

490 024442 005766 000004 2$: TST 4(SP) sALSO ON TRACK 0 ? 

491 024446 (01406 BEQ 3$ BRANCH wT 3? 

492 024450 116066 000152 000006 MOVB SECLMT(RO) ,6(SP)° ;LAST SECTOR 

493 024456 105366 000004 DECB 4(SP) :DECREMENT ONE TRACK 

494 024462 000415 BR 4$ 

495 024464 005766 000002 3$: TST 2(SP) ALSO ON CYLINDER 0 ? 

496 024470 001410 BEQ 4$ :BRANCH IF SO 

497 024472 116066 000152 000006 MOVB SECLMT(RO),6(SP)- ;LAST sectos 

498 024500 116066 000154 000004 MOVB TRKLMT(RO) ,4(SP) 3;GET LAST TRACK 

499 024506 005366 000002 DEC 2(SP) :DECREMENT ONE CYLINDER COUNT 

500 024512 000207 4$: RTS PC ;RETURN 


F 10 


CZRJOAO RPO7 PERF EXER MACRO V04.00 1-JAN-83 12:06:52 PAGE 28 SEQ 0122 
KW11 CLOCK CHECK ROUTINE 
} .SBTTL KW11 CLOCK CHECK ROUTINE 
? sROUTINE TO CHECK FOR KW11"L OR KW11-P CLOCKS 
5 024514 005037 001310 CKCLK: CLR CLKFLG ;ASSUME ‘NO CLOCK’ AVAILABLE 
6 024520 015746 990004 MOV ERRVEC,-(S° >:PUSH ERRVEC ON STACK 
7 024524 O1275 42 6 000004 MOV MCKCLKT ExRVEC :SETUP ERROR TRAP VECTOR FOR P=CLOCK CHECK 
8 024532 005777 154540 TST a$LKCSR SCHECK FOR KW11-P 
9 024) 4 O1¢737 900001 001310 MOV #1, CLKFLG SSET P-CLOCK FLAG 
10 024544 013701 001 92 MOV SLPVEC,RI :kW11-P VECTOR ADDRESS 
11 034550 012721 026¢7 MOV #KWSVR,(R1)* SETUP KW11-P VECTOR 
i 624554 012711 500300 MOV #PR6, (RI) :SET INTERRUPT PRIORITY TO 6 
13 024560 912777 174575 154512 MOV #-1667.,a$LKCSB :LOAD COUNTER BUFFER WITH 16.67 
14 024566 012777 000131 154502 MOV #131, a$LKCSR sSET KWil-P INTERRUPT, CNT UP, 10US, EPEAT MODE 
13 024574 000442 BR CKCLK3 
17 024576 012716 024604 CKCLK1: MOV #1$, (SP) ;SETUP RETURN ADDRESS 
18 024602 900002 RTI 
19 024604 012737 024650 000004 1$: MOV #CKCLK2,ERRVEC ;SETUP ERROR TRAP VECTOR FOR L=CLOCK CHECK 
20 024612 005777 154466 TST as_Kks [CHECK FOR KW1leL 
21 024616 O1¢757 177777 001310 MOV #-1,CLKFLG [SET L=CLOCK FLAG 
22 024624 013701 001306 MOV SLLVEC,R1 :KW11=-L VECTOR ADDRESS 
235 024630 012721 026272 MOV #KWSVR, (RI)+ sSETUP KWil-L VECTOR 
24 024634 012711 000300 MOV #PR6, (R1) :SET INTERRUPT PRIORITY TO 6 
25 024640 012777 000100 154436 MOV #100, w$LKS SSET KW1l-L INTERRUPT 
6 024646 000415 BR CKCLK3 
28 024650 012716 024656 CKCLK2: MOV #1$, (SP) :SETUP RETURN ADDRESS 
29 024654 000002 RTI 
30 024656 104401 057634 1$: TYPE NEDCLK 7"P OR L CLOCK MUST BE ON SYSTEM’ 
31 024662 105737 001150 STB  $AUTOB [RUNNING IN AUTO MOLE ? 
32 024666 001402 BEQ 2$ “BR IF NOT 
33 024670 000137 031744 JMP $GET42 ;ABORT PROGRAM 
34 024674 000000 28: HALT SHALT 
35 024676 000137 003522 JMP START [TRY AGAIN 
37 024702 0127637 000004 CKCLK3: MOV (SP) +, ERRVEC ZRESTORE THE ERROR VECTOR 
38 024706 000207 RTS PC 
ri ayn ROUTINE IS USED TO SHUT OFF INTERRUPT TO THE SYSTEM CLOCK 
$¢ 3 JSR PC, CLKOFF CALL ROUTINE 
44 924710 005737 001310 CLKOFF: TST CLKFLG z1S CLOCK AVAILABLE ? 
45 024714 001410 BEO 2$ [BR IF NO 
46 024716 100404 BM] 1$ :BR IF L=CLOCK 
47 024720 042777 000101 154350 BIC #101, a$LKCSR § :SHUT OFF KW11l-P INTERRUPT 
48 024726 000403 BR 
49 024730 042777 000100 154346 1$: BIC #100, a$LkS :SHUT OFF KWll-L INTERRUPT 
50 024736 000207 2$: RTS PC TEKAT 


10 
CZRJOAO RPO? PERF EXER MACRO V04.00 1-JAN-83 12:04:52 PAGE 29 . SEQ 0123 
KW11 CLOCK CHECK ROUTINE 


1 
¢ : ROUT INE TO DISPLAY STATISTICS FOR ASSIGNED DRIVES 
4 : JSR PC, STATPR 
2 : RETURN 
7 024740 STATPR: 
024740 010046 MOV RO,=(SP) ;sPUSH RO ON STACK 
024742 010446 MOV R4,=(SP) +:PUSH R4 ON STACK 
8 024744 005737 001542 TST ASNLST : ANY DRIVES ASSIGNED ? 
9 024750 001431 BEQ 5$ ‘BR IF NOT 
21 024752 005004 2$: CLR RG [CLEAR THE DRIVE INDEX 
32 024754 104401 001203 TYPE ,SCRLF iCR “LF 
2 024760 006304 3$: ASL RG SCHANGE TO INDEX WORDS 
24 024762 016400 002056 MO\ BLKADR(RG),RO  :GeT THE DRIVE'S BLOCK ADDRESS 
25 024766 006204 ACR RG ORE P4 
26 024770 136437 046550 001542 BITB _ ATABIT(R4) ,ASNLST :1S THIS DRIVE ASSIGNED ? 
27 024776 001412 BEQ 4$ :BR IF NOT 
28 025000 104401 001203 TYPE /S$CRLF CR 
29 025006 004737 026146 JSR PC, STIME HVPE. ELAPSED TIME 
30 025010 104401 057321 TYPE DASHS sooo 
31 025014 104601 057345 TYPE MSGSUM TYPE ‘SUMMARY, ° 
32 025020 004737 025070 JSR PC, TYPSUM [TYPE THE SUMMARY 
33 025024 005204 4$: INC RG HINCREMENT THE INDEX 
34 025026 020427 000010 rMp R48. ‘FINISHED ? 
35 025032 001352 ENE 3$ [BR IF NO 
36 025034 S$: 
025034 012604 MOV (SP)+,R4 :;POP STACK INTO R4 
025036 012600 MOV (SP) +,RO i :POP STACK INTO RO 
37 025040 000207 RTS PC RETURN 
39 : ROUTINE TO TYPE THE SUMMARY FOR ONLY ONE DRIVE 
CALL: 
41 : MOV #DPB,RO ;DPB ADDRESS 
42 : JSR PC ONE SUM 
$? 3 RETURN 
45 025042 010046 ONESUM: MOV RO,-(SP) sSAVE RO 
46 025044 010446 MOV R4,=(SP) SSAVE R4 
47 025046 005004 CLR RG [CLEAR R4 FOR DRIVE NUMBER 
48 025050 111004 , MOVB (RO). R4 [DRIVE NUMBER 
49 025052 004737 025070 JSR PC, TYP.UM ;TYPE THE SUMMARY 
$0 025056 104401 057327 TYPE .DASH13 TTYPE 'eoneenneennn- 
51 025062 012604 MOV (SP)+,R4 SRESTORE R4& 
52 025064 012600 MOV (SP) +.RO iRESTORE RO 
33 025066 000207 RTS PC RETURN 
55 ;TYPE THE SUMMARY 
56 CALL: 
57 : MOV #ORIVE ,R4 SDRIVE NUMBER 
58 : MOV #0PB,RO [DPB ADDRESS 
23 : RETURN 
64 025070 000240 TYPSUM: NOP 
67 ;TYPE REST OF SUMMARY LINE 1 


68 025072 104401 056601 TYPE eDRVMSG sTYPE "DRIVE* 


H 10 


CZRJOAO RPO7 PERF EXER MACRO V04.00 1-JAN-83 12:06:52 PAGE 29-1 SEQ 0124 
KW11 CLOCK CHECK ROUTINE 
69 025076 010446 MOV R4,-(SP) s3SAVE R4 FOR TYPEOUT 
:: TYPE DRIVE NUMBER 
025100 104403 TYPOS 33G0 TYPE--OCTAL ASCII 
02910¢ 002 .BYTE 2 T:TYPE 2 DIGIT(S) 
02510 000 .BYTE 0 [SUPPRESS LEADING ZEROS 
70 025104 104401 056531 TYPE »BLNKS1 ‘TYPE 1 BLANK 
71 025110 104401 056575 TYPE ‘DASH STYPE t=" 
ie 025114 Lo4eot 056531 TYPE *BLNKS1 [TYPE 1 BLANK 
7 05120 0127 7 057075 025146 MOV #SRPO7, 2% SADDRESS OF RPO? MESSAGE 
74 025126 122764 000005 040464 CMPB so #5, DRVTYP(RG) 31S DEVICE AN RPO7 ? 
75 025134 001403 BEQ 1$ ‘BR IF YES 
76 025136 012737 057102 025146 MOV #SRPO7P, 2% SADDRESS OF RPO7+ MESSAGE 
77 025144 104401 1$: TYPE STYPE THE DRIVE TYPE MESSAGE 
78 025146 000000 2$: WORD 0 SMESSAGE ADDRESS HERE 
79 025150 104401 056573 TYPE , COMMA :TYPE °,° 
80 025154 104401 056531 TYPE *BLNKS1 [TYPE 1° BLANK 
81 025160 004737 032764 SR PC. TYDRV ZTYPE DRIVE SERIAL NUMBER 
82 025164 104401 025172 TYPE .65$ S:TYPE ASC'Z STRING 
025170 000404 BR 64$ S:GET OVEN THE ASCIZ 
3:65$: .ASCIZ /, PASS / 
025202 éé$: 
83 025202 016046 000114 MOV SPASSC(RO) ,=(SP) ;PUT THE PASS COUNT ON THE STACK 
84 025206 004737 033332 JSR C,$S82D :CONVERT IT 
85 025212 004537 032552 JSR R5.REPLZ :TYPE IT 
86 025216 000003 -WORD 3 :TYPE 3 DIGITS 
87 025220 104401 057711 TYPE »PERIOD :TYPE *,° 
89 sTYPE LINE 2 OF SUMMARY 
+ 333 TYPE »SCRLF 7 CRLF 
92 sTYPE LINE 3 OF SUMMARY 
93 025224 104401 025232 TYPE 67$ r:TYPE ASCIZ STRING 
025230 000407 BR 6$ S:GET OVER THE ASCIZ 
3367$: .ASCIZ <CRLF>/WRDS WRITN / 
025250 66$: 
94 025250 104401 057532 TYPE ,MSPASS sTYPE "/ PASS ' 
95 025254 010046 MOV RO,-(SP) [GET ADDRESS OF DPB 
96 025256 062716 000042 ADD #SWIPAS, (SP) sPOINT TO LOW NUMBER OF WRDS WRITTEN PFR PASS 
97 025262 004737 037324 JSR PC, $DB2D sCONVERT DECIMAL NUMBER 
98 025266 004737 032362 JSR PC,SUPRS SUPPRESS LEADING ZEROS AND TYPE 
99 025272 104401 057711 TYPE »PERIOD :TYPE °.* 
100 025276 104401 057542 TYPE *MSTOTL [TYPE °° TOTAL ° 
101 025302 010046 MOY RO,-(SP [GET ADDRESS OF DPB 
102 025304 062716 000056 ADD #SUTOTL, (SP) ZPOINT 10 LOW NUMBER OF WRDS WRITTEN 
10? 025310 004737 037324 JSR PC, $DB20 [CONVERT DECIMAL NUMBER 
104 025314 004737 032362 JSR PC, SUPRS :SUPPRESS LEADING ZEROS AND TYPE 
105 025320 104401 057711 TYPE »PERIOD :TYPE °,* 
106 025324 104401 057552 TYPE *MSGX10 STYPE * x10%6" 
108 :TYPE LINE 4 OF SUMMARY 
109 025330 104401 025336 TYPE 69$ ri: TYPE ASCIZ STRING 
025334 000407 BR 68$ S:GET OVER THE ASCIZ 
-:69$: .ASCIZ <CRLF>/WRDS READ’ ’/ 
025354 és: 
110 025354 104401 057532 TYPE MSPASS sTYPE "/ PASS * 
111 025360 010046 MOV RO, -(SP) [GET ADDRESS OF DPB 
112 025362 062716 000036 ADD #SROPAS, (SP) sPOINT TO LOW NUMBER OF WRDS READ PER “ASS 


ZRJOAO RP 
wil CLOCK C 
113 025366 
114 o¢2 72 
115 025376 
116 025402 
117 025406 
118 025410 
119 025414 
120 025420 
121 osee 4 
122 025430 
125 
124 
125 025434 
025440 
025460 
126 025460 
127 025464 
128 025466 
129 025472 
130 025476 
131 025502 
132 025506 
133 025512 
134 025514 
135 025520 
136 025524 
137 025530 
146 
147 
148 025534 
025540 
025566 
149 025566 
025572 
025604 
150 025604 
025610 
151 025612 
152 025616 
025622 
025634 
153 025634 
025640 
154 025642 
155 025646 
025652 
025662 
156 025662 
025666 
157 025670 
158 025674 
025700 


104401 


104401 
000412 


104401 
000404 


So 
o 
= 
Oo 


004604 


016046 


000403 


016046 


000404 


Sooooo ocoOooo 
VINA UV 
NNNNO NNN 
VINIWWWNO VINIWW 
WFO FOr 
MANE O MTS 


MIWWO VMVMWWO 


25574 


000104 


057711 
025624 


000106 


057711 
025654 


000110 


057711 
025702 


sTYPE LINE 5 OF 
TYP 


-71$: 


+65: 


TYPE LINES 6 AND_7 OF SUMMARY 
TYPE 73$ 


-73$: 


*5$: 


;75$: 


is: 


:77$: 


és: 


obs: 


-79$: 


BR 
eASCIZ 
TYPE 


1 
07 PERF EXER MACRO V04.00 1-JAN-83 12:06:52 PAGE 29-2 aie 
HECK ROUTINE 


SUMMARY 
71$ 


0$ 
<CRLF>/SEEKS 
eMSPASS 
RO,-(SP) 
#SSEEKS, (SP) 
Pp 20 


SP) 
#SSTOTL, (SP) 
PC, $DB2D 
PC, SUPRS 
»PERIOD 


23 GET 
<CRLF>/CUMULATIVE ERRORS 


75$ 
4$ 
<CRLFD>/SOFT / 


SSOFT(RO) ,-(SP) 


»PERIOD 
77$ 


6$ 
/ HARD / 


SHARD(RO) , (SP) 


»PERIOD 
79$ 


$ 
/ SKI / 


$SKICRO),-(SP) 


PERIOD 
81$ 
80$ 


; CONVERT DECIMAL NUMBER 
iWVPE fe LEA DING. ZEROS AND TYPE 
YPE * TOTAL ° 
‘GET ADDRESS OF DPB 
POINT 10 LOW erage OF WRDS READ 
;CONVERT DECIMAL R 
; SUPPRESS TEADING. YEROS AND TYPE 


YPE 
:TYPE *°x10%6' 


sz TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


sTYPE °/ PASS ° 

:PUT $STOTL ON THE STACK 

:POINT TO LOW NumBe OF SEEK COUNT 
CONVERT DECIMAL NUMBER 

PUP ro LEADING ZEROS AND TYPE 


;TYPE * L 

:PUT $STOTL ON THES 

sPOINT TO LOW NUMBER. OF * seeK COUNT 
;CONVERT DECIMAL NUMBER 

: SUPPRESS LEADING. ZEROS AND TYPE 


aon ASCIZ STRING 
even THE ASCIZ 


23 TYPE ASCIZ STRING 
3;GET OVER THE ASCIZ 


ae SSOFT(RO) FOR TYPEOU 

fee TYPE=-DECIMAL ASCII uiTH SIGN 
33TYPE ASCIZ STRING 

:;GET OVER THE ASCIZ 

o5 SAVE SHARD(RO) FOR TYPEOUT 

4 ty oe YPE~=-DECIMAL ASCII WITH SIGN 
:;TYPE ASCIZ STRING 

3:GET OVER THE ASCIZ 

33 SAVE $SKI(RO) FOR TYPEOU 

‘ive TYPE=-DECIMAL ASCII UITH SIGN 


:;TYPE ASCIZ STRING 
:3GET OVER THE ASCI2Z 


SEQ 0125 


J 10 
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KW11 CLOCK CHECK ROUTINE 


2281$: .ASCIZ / MISP / 


02571 86s: 
159 052718 016046 000112 MOV SMISPOCRO) ,=(SP)_ :SAVE $MISPO(RO) FOR TYPEOUT 
025716 104405 TYPDS -G0 TyPE=-DECIMAL ASCII win SIGN 
160 025720 104401 057711 TYPE +PERIOD ‘Typ YPE 
161 025724 104401 025732 TYPE 83$ ‘TYPE ASCIZ STRING 
025730 000404 BR 2$ S:GET OVER THE ASCiZ 
--83$: .ASCIZ / OTHER / 
025742 B2$: 
162 025742 016046 000102 MOV STOTAL (RO) ,-(SP) LCULATE “wit A OTHER ERRORS 
165 025746 166016 000104 SUB SSOFT(RO),(SP) ;SUBTRA i SSOFT FR 
00792 166016 000106 SUB SHARD (RO). (SP) ; SUBTRACT SHARD FROM STorat 
025756 166916 000110 SUB $SKI(RO),(SP) SUBTRACT $SKI FROM STOTAL | 
025762 166016 000112 SUB $MISPO(RO), (SP) :SUBTRACT $MISPO FROM $TO 
166 025766 104405 TYPDS i460 TYPE==DECIMAL ASCII Ourtn SIGN 
167 025770 104401 057711 TYPE »PERIOD TYPE 
168 025774 104401 001203 TYPE "SCRLF > CReLF 
169 026000 000207 RTS PC 


K 10 
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1 
15 
16 
;ROUTINE TO INCREMENT $SOFT 
SNOTE: $SOFT WILL NOT BE INCREMENTED BEYOND 77777 (32767.) 
026002 005737 001336 INCSOF: TST BADSEC SEE IF BAD TRK/SEC [NDICATOR SET 
026006 001006 BNE 1$ ‘BR IF IT'S SET, DON'T INCREMENT COUNT 
026010 026027 000104 077777 CMP SSOFT(RO),#77777— -1$ $SOFT ALREADY AT MAXIMUM ? 
026016 103002 BHIS 1$ :BR IF IT IS 
926020 005260 000104 INC $SOFT(RO) : INCREMENT $SOFT 
> 026024 000207 1$: RTS PC ;RETURN ' 
i 
;ROUTINE TO INCREMENT $HARD 
[NOTE: $HARD WILL NOT BE INCREMENTED BEYOND 77777 (32767.) 
026026 005737 001336 INCHRD: TST BADSEC 7SEE IF BAD TRK/SEC INDICATOR SET 
026032 001006 BNE 1$ 7BR IF IT'S SET, DON'T INCREMENT COUNT 
026034 026027 000106 077777 CMP SHARD(RO),#77777— -15 $HARD ALREADY AT MAXIMUM ? 
026042 103002 BHIS 1% :BR IF IT IS 
026044 005260 000106 INC SHARD (RO) :INCREMENT SHARD 
“ 026059 000207 1$: RTS PC :RETURN 
:ROUTINE TO INCREMENT $SKI 
‘NOTE: $SKI WILL NOT BE INCREMENTED BEYOND 77777 (32767.) 
026052 005737 001336 INCSKI: TST BADSEC 7SEE IF BAD TRK/SEC INDICATOR SET 
026056 001006 BNE 1$ ‘BR IF IT'S SET, DON'T INCREMENT COUNT 
026060 026027 000110 077777 CMP $SKI(RO),#77777 :1S $SKI ALREADY AT MAXIMUM 
026066 103002 BHIS  1$ ‘BR IF It Is 
026070 005260 000110 INC $SKI(RO) s INCREMENT $SKI 
. 026074 000207 1$: RTS PC sRETURN 
ZROUTINE TO INCREMENT $M1SPO 
‘NOTE: $MISPO WILL NOT BE iNCREMENTED BEYOND 77777 (32767.) 
026076 005737 001336 INCMIS: TST BADSEC :SEE IF BAD TRK/SEC [NDICATOR SET 
026102 001006 BNE 1 “BR IF IT'S SET, T INCREMENT COUNT 
026104 026027 000112 077777 CMP $HISPOCRO), #77777 215 Shigpo- ALREADY AT MAXIMUM ? 
926112 10300 BHIS 1$ :BR IF IT 
026114 005260 000112 INC $MISPOC(RO) s INCREMENT $MISPO 
-_ 026120 000207 1$: RTS PC ; RETURN 
;ROUTINE TO INCREMENT $TOTAL 
‘NOTE: $TOTAL WILL NOT BE INCREMENTED BEYOND 77777 (32767.) 
026122 005737 001336 INCTOT: TST BADSEC ;SEE IF BAD TRK/SEC INDICATOR SET 
026126 00100 BNE ‘ RIF IT! 3 SET, DON'T INCREMENT COUNT 
0261 0 026027 000102 077777 CMP STOTAL(RO), #77777 5 $TOTAL ALREADY AT MAXIMUM ? 
026136 103002 BHIS 1% sBR IF 
026140 005260 000102 INC STOTAL (RO) s INCREMENT $TOTAL 
026144 000207 1$: RTS : RETURN 
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1 
¢ ;ROUTINE TO TYPE THE ELAPSED CPU RUN TIME 
4 026146 005737 001310 STIME: TST LKFLG 31S CLOCK AVAILABLE ? 
5 026152 001446 BEQ ’ IF N 
é 026154 016737 000002 026222 MOV #2,2$ i ASSUME " DIGITS TO TYPE 
7 026162 013746 001340 MOV HOUR, =(SP) T "HOURS' ON THE st ACK 
8 026166 021627 000144 CMP (SP), #100. £100, HOURS OR MORE ? 
9 026172 002407 BLT 1$ F NO 
10 026174 005237 026222 INC 2$ ‘TYPE 3 DIGITS 
11 026200 021627 001750 CMP (SP) ,#1000 : 1000. HOURS OR MORE ? 
1 026204 902408 BLT 1$ :BR F NO 
13 026206 0052 026222 INC 2$ [TYPE 4 DIGITS 
14 026212 004737 033332 1$: JSR peepeeee ; CONVERT TO DECIMAL 
15 026216 004537 032546 JSR RS.FILLZ T 
16 026222 000000 23: »WORD 0 NUMBER OF HOUR DIGITS TO TYPE 
17 026204 104401 060074 TYPE  , COLON 
18 026230 013746 001342 MOV MINUTE ,-(SP) {PUT *MINUTES' The ee STACK 
19 026234 004737 033332 JSR PC, $SBeD ; CONVERT TO DECIMA 
20 026240 004537 032546 JSR R5;FILLZ T 
21 026244 000002 “WORD 2 CTYPE 2 DIGITS 
ce 026246 104401 060074 TYPE _ , COLON t's! 
23 026252 013746 001344 MOV SECOND ,-(SP) ;PUT SECONDS ON THE STACK 
24 026256 004737 033332 JSR PC, $SB2D [CONVERT TO DECIMAL 
25 026262 004537 032546 JSR RS.FILLZ : T 
26 026266 000002 .WORD 2 :TYPE 2 DIGITS 
37 026270 000207 3$: RTS PC 
<9 yKW11 CLOCK INTERRUPT SERVICE ROUTINE 
31 026272 005337 001346 KWSVR: DEC ONESEC J ie iy THE 1/60 oe COUNTER 
32 026276 001037 BNE 1$ ‘BR IF A SECOND NOT COUNTED 
33 026300 013737 001312 001346 MOV HERTZ ,ONESEC SRESTORE THE VALUE 
34 026306 005237 001344 INC SECO [COUNT THE SECOND 
35 026312 023727 001344 000074 CMP SECOND, #60. SAT MAX IMU 
36 026320 103426 BLO 1$ te NOT. 
37 026322 005037 001344 CLR SECOND :CLEAR THE SECOND'’S COUNTER 
38 026326 005237 001472 INC INTRVL#2 [COUNT SUMMARY INTERVAL COUNTER 
39 026332 005237 001464 INC CMPTIM+2 sCOUNT COMPARE TIME INTERVAL COUNTER 
40 026336 005237 001342 INC MINUTE SCOUNT THE MINUTE 
41 026342 023727 001342 000074 CMP MINUTE, #60. SAT MAXIMU 
42 026350 105412 BLO 1$ :BR IF NOT 
43 026352 005037 001342 CLR MINUTE [CLEAR THE MINUTE! S COUNTER 
44 026356 003237 001340 INC HOUR [COUNT THE HOURS 
45 026362 023727 001340 023417 CMP HOUR, #9999. TAT MAXIMU 
46 026370 101402 BLOS =-*'1$ :BR IF NOT 
47 026372 005037 001340 CLR HOUR CLEAR THE HOURS 
48 026376 012746 000024 1$: MOV #20. ,-(SP) :20MS ON THE "Stack a, 50HZ 
49 026402 023727 001312 000062 CMP HERTZ, #50. [CPU RUNNING @ 5OHZ 
50 026410 001402 BEQ 4 ‘BR IF YE 
51 026412 012716 000020 MOV #16., (SP) i 1oms ON THE STACK @ 60HZ 
28 026416 004737 044322 2$: JSR PC .RPTMR [DRIVER TIMER ROUTINE 
53 026422 005737 001470 TST INTRVL sDISPLAY THE PERFORMANCE SUMMARY ? 
54 026426 001411 BEQ :BR IF NOT 
55 026430 023737 001472 001470 CMP NTIRVL#2,INTRVL :DISPLAY INTERVAL FINISHED ? 
56 026436 002405 BLT :BR IF NO 
57 026440 012737 177777 001314 MOV #-1,STATIN sSET PERFORMANCE SUMMARY DISPLAY FLAG 


oo 
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K CHECK ROUTINE 
26446 005037 001472 CLR INTRVL#2 
26452 000002 3$: RTI 


M 10 


CLEAR THE PERFORMANCE INTERVAL COUNTER 


SEQ 0129 
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1 
¢ : COMMAND DECODE ROUTINE 
4 ; MOV #1,CFLAG ;"CFLAG' IS NORMALLY SET BY THE TTY SERVICE 
5 3 sROUTINE IN INTERRUPT MODE 
5 ; JSR PC,KSR 
7 : RETURN :SYSTEM BUSY RETU 
8 ; RETURN2 SRETURN AFTER E EYBOARD SERVICED 
10 026454 005737 040546 KSR: TST DTUW s ANY DATA TRANSFERS UNDER WAY ? 
11 026460 100375 BPL KSR IF YES 
i 026462 104412 KSR1: SAVREG ISAVE THE REGISTERS 
13 026464 O1275 000200 177776 MOV #PR4,PS [SET PRIORITY TO 4 
14 026472 013704 040560 $: MOV RPADR,R4 ;GET RP/RH BASE ADDRESS 
15 026476 012764 000040 000010 MOV #CLR,RPCS2(R4) ;CLEAR MASSBUS CONTROLLER 
19 026504 005037 001334 CLR CFLAG SCLEAR THE "CONTROL C° FLAG 
20 026510 104401 001203 TYPE S$CRLF CRLF 
21 026514 004737 026146 JSR PC, STIME ‘TYPE ELAPSED TIME 
22 026520 104401 056573 TYPE , COMMA TYPE 
23 026524 104401 056531 TYPE *BLNKS1 i TYPE 1 * BLANK 
24 026530 104401 034656 TYPE *SMSWR+2 YPE 'SWR = ° 
25 026534 017746 152414 MOV ase, -(SP) Seve aSWR FOR TYPEOUT 
at et OF SWITCH REGISTER 
026540 104402 TYPOC TYPE=-OCTAL ASCIICALL DIGITS) 
26 026542 004737 033430 JSR PC,STKINT ‘ERT TIALIZE TTY KEYBOAR 
27 026546 004737 024710 JSR PC, CLKOFF + SHU HUT OFF CLOCK INTERRUPT WHILE WAITING 
$s 026552 104401 060001 TYPE -ENTCOM : "ENTER COMMAND 
30 026556 104411 RDLIN ;READ THE KEYBOARD 
31 026560 012605 MOV (SP)+,R5 GET rsa OF INPUT STRING 
32 026562 005737 001334 TST CFLAG [WAS (*C) TYPED? 
33 026566 001405 BEQ 2$ [BR IF NO 
34 026570 005737 001542 TST ASNLST + ANY DRIVES ASSIGNED ? 
35 026574 001141 BNE 13$ ; 
36 026576 000137 003522 JMP START SJUMP TO START 
38 026602 004737 024514 23: JSR PC,CKCLK sSTART SYSTEM CLOCK 
39 026606 005205 INC R5 sPOINT TO SECOND CHARACTER 
40 026610 122715 000124 CMPBs#*T,, (RS) tEQ TOA 'T' ? 
41 026614 001465 BEQ 9$ YES 
42 026616 122715 000101 CMPB es # "A, (RS) [EQ TO AN 'A® 
43 026622 001410 BEQ 3g :BR IF IT IS 
44 026624 121527 000067 CMPB (R5),#'7 :DRIVE NUMBER GREATER THAN AN ASCII 7 ? 
45 926630 101117 BHI 12$ :BR IF IT 
4é 026632 121527 000060 CMPB ss CR'5)) , #*0 [DRIVE NUMBER LESS THAN AN ASCII 0 ? 
47 026636 103514 BLO 12$ :BR IF I 
48 026640 142715 177770 BICB = #*C7, (RS) SLEAVE ONLY LOWER 3 BITS IF CHAR NOT ‘A° 
49 026644 122765 000124 177777 3$: CMPB#"'T,=1(R5) 3£0 10 'T' 
50 026652 001005 BNE 4$ BR IF NOT EQ 
51 026654 004737 030030 JSR PC ,NEWASN S ASSIGN DRIVE FOR TEST 
32 026660 000507 BR 13§ TEXIT 
53 026662 122765 000104 177777 4$: (MPR #*D, =1 (RS) [EQ TO "D* ? 
54 026670 001003 BNE 5$ 'BR IF NOT EQ 
55 02667 004737 027620 JSR "s DROPD ;DRCP DRIVE 
56 026676 000500 BR 136 sexy 
57 026700 122765 000123 177777 S$: (MPR #*S,=1(R5) 7EQ TO 'S 
58 026706 001003 BNE 6$ [BR IF NOT EQ 
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59 026710 
60 026714 
61 bseri6 
62 026724 
64 026726 
65 026732 
67 026734 
68 026742 
69 026744 
70 026750 
71 026752 
i; 026760 
73 026762 
74 026766 
75 026770 
76 026776 
78 027000 
79 027004 
81 027006 
82 027014 
85 027016 
84 027024 
85 027026 
86 027034 
87 027036 
88 027044 
89 027046 
90 027054 
91 027060 
027062 
93 027066 
027070 
95 027074 
027100 
97 027102 
98 02710 
99 027114 
100 027120 
101 
102 
103 
104 027122 
105 027124 
106 927130 
107 027134 
108 027140 
109 027142 
110 027144 
111 027150 
112 027152 
113 027154 
114 027156 
115 027162 
116 027164 
117 027170 
118 027172 
119 027176 
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027726 
000127 
001424 
000001 
030052 
000122 
030040 
000127 
001424 
000001 
000101 
000001 
000001 


177770 
030064 


057713 


057756 
026472 


152054 


000100 
177776 


001334 
001426 
060164 


001334 
000001 


000131 
000116 


B 11 


SEQ 0131 


STATISTICS 


Q 
‘READ ONLY’’ MODE ? 


0 SET ? 
CAN'T DO ‘W* COMMAND 


nO MmRNeAMTNO 
— 
rP]S2 - UMNIX<X Ze 
“OD Pmom-oec 
P- EAE > 
> 


Ss 

H 0 SET ? 

T, CAN'T DO ‘W’ COMMAND 
es ? 
N 


<mom 


S THAN 0 


[CHOP OFF THE HIGHER BITS 
SASSIGN DRIVES WITH WT COMMAND 


i TYPE CAN'T WRITE IN READ ONLY MODE’ 
[TYPE ‘INVALID COMMAND’ MESSAGE 

3C TTY BUFFER 

sSET TTY INTERRUPT ENABLE 

:SET PRIORITY BACK TO ZERO 


ROUTINE TO FROCESS THE ASSIGN REQUEST ('T*, 'R', OR ‘W* COMMANDS) 


ys PC, SCMND 
177777 6$: cMpe #*W,-1(R5) 
TST RDONLY 
BNE 
152212 BIT #SW0, aSWR 
BNE 11$ 
7$: JSR PC, DATAPK 
BR 13§ 
177777 8: CMPB so #* RR, =1(RS) 
BNE 12% 
JSR PC ,REDAPK 
BR 13§ 
177777 9$: CMPB #*W, =1(R5) 
BNE 12$ 
TST RDONLY 
BNE 11$ 
152140 BIT #SWO,aSWR 
BNE 11$ 
000001 CMPB #75) 
BEQ 10$ 
000067 CMPBs«1(R5) ,#°7 
BHI 12$ 
000060 CMPB—s-:- 1(R'5) , #0 
BLO 12$ 
000001 BICB = #*C7,1(R5) 
10$: JSR PC, WATPAK 
BR 13§ 
11$: TYPE MSWRO 
12$: TYPE INVLD 
JMP {$ 
13$:  _- RESREG 
TST astKe 
152044 BIS #B1T06,a$TKS 
CLR PS 
RTS PC 
ASSIGN: MOVB = (R5),R4 
1$: CLR CFLAG 
CLR DRVPAR 
TYPE /MSPRM 
RDLIN 
MOV (SP)+,RO 
TST CFLAG 
BNE 1$ 
TSTB = (RO) 
BEQ 3$ 
TSTB  =—-: 1 CRO) 
BNE 2$ 
(MPR, (RO) 
BEQ 4$ 
CMPB es #'N, (RO) 
BEQ 3$ 


sPUT DRIVE # IN RG 
?CLEAR CONTROL C FLAG 

SASSUME CHANGING DRIVE PARAMETERS 

*TYPE "CHANGE DRIVE PARAMETERS ?° 

*READ THE ENTRY 

SSAVE ADDRESS OF RESPONSE 

:WAS *¢) TYPED? 

iWAS RESPONSE A CARRIAGE RETURN (DEFAULT 'N*)? 
SWAS IT TERMINATED WITH CARRIAGE RETURN ? 

[WAS IT A *Y* RESPONSE ? 

‘BR IF YES 


WAS IT A_“N*® RESPONSE ? 
3BR IF YES 


——o 
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120 027200 104401 060103 2$: TYP": BADENT ;TYPE BAD ENTRY MESSAGE 

121 027204 000747 BR {$ : AGAIN 

1 é 027206 903¢37 001426 3$: INC DRVPAR 'DO NOT CHANGE DRIVE PARAMETERS 
123 027212 122704 000101 4$: CMF3) ss #" ARG SASSIGN ALL DRIVES ? 

12h 027216 001426 BEQ ASGN2 ‘BR IF YES 

126 027220 012737 056652 031276 ASGNI: MOV WUNTASN,ASNMSG ;ERROR MESSAGE 

127 027226 005737 001430 TST XXDP SLOADED FROM THIS DEVICE ? 

128 027232 001407 BEQ $ : N 

1¢9 0 ig & 123704 001430 CMPB —s_ XXDP,, R4 [LOADED FROM THIS DRIVE ? 

130 027240 001004 BNE *BR IF N 

131 027248 012737 056761 031276 MOV WLODEV,ASNMSG :"LOAD DEVICE’ MESSAGE ADDRESS 
1 é 02725 990407 BR 

133 027252 136437 040550 001542 1$: BITB  ATABIT(R4),ASNLST -DRIVE ALREADY ASSIGNED ? 
134 027260 001003 BNE :BR IF IT 

135 027262 004737 027364 JSR PC,ASGN3 [SEE IF DRIVE ON THE SYSTEM 
136 027266 000207 RTS PC SRETURN 

137 027270 000137 031252 2$: JMP ASNERR TEXIT ERROR 

139 027274 005004 ASGN2: CLR RG sSTART WITH DRIVE 0 

140 027276 012737 056652 031276 1$: MOV #UNTASN,ASNMSG ERROR MESSAGE 

141 027304 005737 001430 TST XXDP SLOADED FROM THIS DEVICE ? 

142 027310 001407 BEQ 23 7BR IF N 

143 027312 123704 001430 CMPB Ss XY DP, RG SLOADED FROM THIS DRIVE ? 

144 027316 001004 BNE 4 “BR IF N 

145 027320 012737 056761 031276 MOV MLODEV,ASNMSG :*LOAD DEVICE’ MESSAGE ADDRESS 
146 027526 000413 BR 

147 027330 136437 040550 001542 2$: BITB A'AB;T(R4),ASNLST SALREADY ASSIGNED ? 
148 027336 001007 BNE ” sYES 

149 027340 004737 027364 JSR PC, ASGN3 TASSIGN THE DRIVE 

150 027344 005204 3$: INC RG S INCREMENT DRIVE # 

151 027346 020427 000007 CMP R4,ar TALL DRIVE CHECKED ? 

152 027352 003751 BLE 1$ NO 

153 027354 000207 RTS PC YES 

154 027356 004737 031252 4$: JSR PC ,ASNERR TERROR MESSAGE 

139 027362 000770 BR 3$ :T0 LOOP 

157 027364 136437 040550 001542 ASGN3: BITB  ATABIT(R4),ASNLST :DRIVE ALREADY ASSIGNED ? 
158 027372 001056 BNE ASGNG sBR IF IT IS 

159 027374 110437 050654 MOVB  R4,GENDPB :GET DRIVE NUMBER 

160 027400 006304 ASL SMAKE R4 WORD INDEX 

161 027402 016400 002056 MOV BLKADR(R4),RO  :PUT BLOCK'S ADDR INTO RO 

162 027406 004737 016720 JSR PC,RECALO SRECALIBRATE DRIVE 

163 Og74t¢ 906204 ASR 4 [MAKE R4 BYTE INDEX 

164 027414 105764 040454 TSTB  DRVSTACR4) [DRIVE AVAILABLE? 

165 027420 001451 BE ASGN7 'BR IF DRIVE OFFLINE OR NONEXISTENT 
166 0374 2 100443 M1 ASGN6 [BR IF DRIVE UNSAFE 

167 027424 004737 030104 JSR PC,CLRDPB [CLEAR BLOCK FOR DRIVE JUST ASSIGNED 
168 027430 004737 031010 JSR -GETID [GET DRIVE SERIAL NUMBER 

169 027434 032760 009904 000200 BIT #ILV,S$RPDS(RO) :INTERLEAVE SECTOR SET ? 

170 027442 001461 BEQ ASGNS :BR IF NO 

171 027444 005737 001426 TST DRVPAR [CHANGE DRIVE PARAMETERS ? 

17 027450 001015 BN 1$ :BR IF NO 

173 027452 104401 001203 TYPE ,SCRLF CRLF 

174 027456 104401 056601 TYPE DRVMSG TTYPE "DRIVE 

175 027462 010446 MOV R4,-(SP) $:SAVE R4 FOR TYPEOUT 


3: TYPE DRIVE NUMBER 


on 
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027464 10440 TYPOS 3:G0_TYPE*-OCTAL ASCII 
02746 00 BYTE s;TYPE 2 DIGIT(S) 
02746 00 “BYTE 7;SUPPRESS LEADING ZEROS 
176 027470 104401 056573 E - COMMA sTYPE ',° 
177 027474 104401 056531 TYPE BLNKS1 TYPE 1 BLANK 
178 027500 004737 032770 JSR BC. TYPDRV STYPE DRIVE SERIAL NUMBER 
179 027504 006304 1$: ASL MAKE R& WORD INDEX 
180 027506 004737 030322 JSR BC, DRVPRM THE DRIVE'S ADDRESS LIMITS 
181 027512 016464 002056 001566 MOV BLKADR(R4), ingwunt (Ra :DPB ADDRESS 
18@ 027520 113760 030102 000026 MOVB PACK,$PACK(RO) ;SET COMMAND INDICATOR 
18 Og73¢6 006204 ASR RG sMAKE R4 BYTE INDEX 
184 027530 000207 ASGNG: RTS PC :RETU 
186 027532 012737 056751 031276 ASGN6: MOV WNOTSAF ,ASNMSG ;°UNSAFE’ MESSAGE ADDRESS 
187 027540 000137 031252 JMP ASNERR :TO ERROR ROUTINE 
189 027544 105764 040464 ASGN7: TSTB  DRVTYP(R4) :DRIVE PRESENT? 
190 027550 001405 BEQ 1$ R IF NOT 
191 027552 100010 BPL 2$ BR IF DRIVE OFFLINE 
192 027554 012737 056700 031276 MOV #NOTRP, ASNMSG ADDRESS OF "NOT RPO7* MSG 
193 027562 000407 BR 
194 027564 01272” 056715 031276 1$: MOV #NOTPRS ,ASNMSG ¢ ADDRESS OF ‘NOT PRESENT’ MSG 
195 027572 000403 BR XIT 
196 027574 012737 056607 031276 2$: MOV MUNTOF F ,ASNMSG ‘ADDRESS OF "DRIVE OFFLINE’ MESSAGE 
197 027602 000137 031252 3$: JMP ASNERR :TO ERROR ROUTINE 
199 027606 012737 056776 031276 ASGN8: MOV @NINLEV,ASNMSG ;ADDRESS OF "NON-INTERLEAVED’ MESSAGE 
200 027614 000137 031252 JMP ASNERR 3TO ERROR ROUTINE 


o-“7-*; 
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1 

4 3"D* COMMAND (ROUTINE TO DROP A DRIVE) 

4 027620 005004 DROPD: CLR RG sSTART WITH DRIVE 0 

5 027622 012703 000010 MOV #8. ,R3 U 

ra 0276 6 122715 000101 CMPB#' A (RS) ;DROP ALL DRIVES ? 

7 027632 601403 BEQ 1$ R IF YES 

B 027634 111504 MOVB — (R5) , R& :GET DRIVE N UMBER 

9 027636 612703 000001 MOV #1,R R3 FOR ONE DRIVE 

10 027642 136437 040550 001542 1$: BITB ATABIT(R4), ASNLST DRIVE ASSIGNED ? 

11 027650 001417 BEQ 3$ F if 

i 027658 146437 040550 00154 BICB  ATABIT(R4) ,ASNLST ;DELETE THE DRIVE FROM THE ASSIGNED LIST 
13 02766 146437 040550 03202 BicB ATABIT(R4), *AUTLST DEL TE DRIVE a the AUTO ASSIGN LIST 
14 027666 006304 ASL ;MAKE ADDR INTO A WORD INDEX 
15 027670 016464 002056 001544 MOV BLKADR(RG) ,DDRVS(R4) sPUT ADDRESS IN DROP LIST 
16 027676 906204 ASR RG 

17 027700 005303 2$: DEC R3 sANY MORE DRIVES ? 

18 027702 001410 BEQ 4$ :BR IF NOT 

19 027704 005204 INC RG 

20 027706 000755 BR 1$ 
21 027710 012737 056630 031276 3$: MOV WUNTNOT,ASNMSG ;ADDR OF ‘NOT ASSIGNED® MESSAGE 
22 027716 004737 031252 JSR PC, ASNERR :REPORT IT 

23 027722 000766 BR 
24 827724 000207 4$: RTS PC 
26 :"S" COMMAND (ROUTINE TO TYPE DRIVE PERFORMANCE SUMMARY) 
28 027726 SCMND : 

027726 013746 001542 OV ASNLST,=-(SP) :zPUSH ASNLST ON STACK 

29 027732 122715 000101 CMPB aw", (5) tALL STATISTICS ? 

30 027736 001416 BEQ 2$ ‘BR IF YES 
31 027740 111504 MOVB _(R5),R4 [GET DRIVE NUMBER 

32 027742 136414 040550 BITB  ATABIT(R4),(SP) 1S THIS DRIVE ASSIGNED ? 

33 027746 001404 BEQ 1$ 

34 027750 116437 040550 001542 MOVB —ATABIT(R4) ,ASNLST MO GET DRIVE ASSIGN BIT 
33 027756 000411 BR 3$ 
37 027760 012737 056630 031276 1$: MOV WUNTNOT,ASNMSG ADDR OF "NOT ASSIGNED’ MSG 
38 027766 004737 031252 JSR PC ,ASNERR [TYPE ERROR MESSAGE 

9 027772 000413 BR 4 EX 
40 027774 105737 001542 2s: TSTB = ASNLST ZANY DRIVE ASSIGNED ? 
41 030000 901410 BEQ RI 
4z 030002 004737 024740 3$: JSR PC, STATPR :TYPE ALL STATISTICS, 
43 030006 104401 057327 TYPE »DASH13 YPE a 

44 030012 104403 001203 TYPE *SCRLF tae 
45 030016 104401 057513 TYPE *MSGCON so *CONTINUING...° 
47 030022 4$: 
030022 012637 001542 MOV (SP)+*,ASNLST | ;;POP STACK INTO ASNLST 

48 030026 000207 RTS PC 

30 :"T* COMMAND (ROUTINE TO TEST A DRIVE) 

52 030030 005037 030102 NEWASN: CLR PACK :SET *T* COMMAND INDICATOR 

3 30034 000137 027122 JMP ASSIGN :GO TO THE ASSIGN ROUTING 

és :"R* COMMAND (ROUTINE TO DO SEQUENTIAL READ DATA) 


SFQ 0134 


F 11 
CZRJOAO RPO7 PERF e ees V04.00 1-JAN-83 12:06:52 PAGE 33-1 SEQ 0135 


EX 
KW11 CLOCK CHECK ROU 


56 

5/¢ 030040 piers 000001 030102 REDAPK: MOV #1,PACK sSET "R® COMMAND INDICATOR 
58 030046 000137 027122 JMP ASSIGN tASSIGN THE REQUESTED DRIVE 
60 z'w' COMMAND (ROUTINE TO DO SEQUENTIAL WRITE DATA) 

62 030052 012737 177777 030102 DATAPK: MOV #=1,PACK sSET ‘w’ COMMAND INDICATOR 
63 030060 000137 027122 JMP ASSIGN SASSIGN REQUESTED DRIVE 

65 ;"wT" COMMAND (ROUTINE TO DO WRITE DATA AND TEST A DRIVE) 

67 030064 116515 000001 WATPAK: MOVB =: 1(R5),, (RS) ADJUST DRIVE »HUMBER ADDRESS 
68 030970 012737 177776 030102 MOV #-2,PACK SET COMMAND INDICAT 

69 030076 000137 027122 JMP ASSIGN + JUMP Ww ASSIGN” ROUTINE 


70 
71 030102 000000 PACK: -WORD 0 ; TEMPORARY STORAGE FOR COMMAND INDICATOR 
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kwil CLOCK CHECK ROUTINE 


1 : ROUTINE TO CLEAR THE DPB FOR THE ASSIGNED DRIVE 
g MOV #0PB,RO :DPB ADDRESS 
i JSR PC,CLRDPB 
2 ; RETURN 
; ?RO = DPB ADDRESS BEFORE CALLING THE ROUTINE 
9 030104 CLRDPB: 
030104 010146 MOV R1,-(SP) s:PUSH R1 ON STACK 
030106 010346 MOV R3,=-(5P) S PUSH R3 ON STACK 
030110 010446 MOV R4.=(SP) + PUSH R& ON STACK 
030112 010546 MOV R5,=(SP) +:PUSH RS ON STACK 
10 030114 005737 040020 TST PWRFLG SRETURNING FROM POWER FAIL ? 
11 030120 001073 BNE 4$ SBRANCH IF YES 
12 030122 010004 MOV RO. Re :GET THE DPB ADDRESS 
13 030124 062704 0000C2 ADD DRESS OF FIRST LOCN TO BE CLEARED 
14 030130 012703 000012 MOV #c$CVL-SCOMND> +2, RS NUMBER OF LOCNS TO BE CLEARED 
15 030134 005024 1$: CLR ZCLEAR LOCATIONS “SCO ND' = "$CYL' IN DPB 
16 030136 162703 000002 SUB a. R3 ‘BON — CLEARING YET 
V7 030142 001374 BNE 1$ ‘BR IF NO 
19 030144 062704 000002 ADD KIP OVER THE *$REG’ LOCATION 
20 030150 012703 000114 MOV AcANEXT-S1ATUS>¢D: R3_—;NUMBER OF LOCNS TO BE CLEARED 
21 030154 005024 2$: CLR sCLEAR LOCATIONS rSTATUS - "$NEXT’ IN DPB 
32 030156 142703 000002 SUB #. a3 [DONE CLEARING YET ? 
33 030162 001374 BNE 2$ [BR IF NO 
25 030164 062704 000026 ADD #<SDRVSN-SFIRST>, RS ;SKIP OVER "SFIRST', MIN/MAX ADRS 
26 [LIMITS AND "CYL, TRK, SEC, FE1® LIMITS 
27 030170 012703 000062 MOV er en ot. sNUMBER OF LOCNS TO BE CLEARED 
28 030174 005024 3$: CLR R LOCATIONS *SDRVSN" - "$RPCS3° IN DPB 
29 030176 162703 000002 SUB a. “RS SSONE CLEARING YET 
30 030202 001374 BNE 3$ [BR IF NO 
32 sINITIALIZE SOME OTHER LOCATIONS 
33 030204 113760 001514 000024 MOVB BEGCOD, SCODE(RO)® s INITIAL COMMAND CODE 
34 030212 013701 001514 MOV EGCOD.R1 :GET THE ACTUAL OP CODE 
35 030216 116160 002076 000002 MOVB = COMTBL(R1), SCOMND (RO) : OPERATION CODE 
36 030¢¢% 113760 001512 000030 MOVB _— BEGPAT, SPATTC.(RO) [PATTERN CODE 
37 030232 196360 00003 ASLB SPATICEROD sCONVERT CODE TO A TABLE INDEX 
38 030236 013760 001516 000020 MOV BEGWC,$WRDL(RO) :BEGINNING WORD COUNT 
9 030244 013760 001516 000004 MOV BEGWC.SWCNT(RO) :VALUE FOR DATA TRANSFER 
40 030252 005460 000004 NEG SuCNTCRO) [MAKE IT INTO 2°S COMPLEMENT 
41 020256 012760 000400 000022 MOV #256.,$SSEC(RO) sINITIAL VALUE OF SECTOR SIZE 
4@ 05264 012760 000001 000114 MOV #1,$PASSC(RO) [PRESET pass Gout 01 
4 030¢72 132760 000001 000024 BITB = #1. $CODE (RO) {HEADER COMMAND ? 
44 030300 001403 BEQ :B NOT 
45 030302 062760 000002 000022 io ADD #2,$SSEC(RO)  :ADD HEADER SIZE TO SECTOR SIZE 
stats 012605 MOV (SP)+,R5 ::POP STACK INTO RS 
030312 012604 MOV (5P)+.R4 [POP STACK INTO R4 
030314 012605 MOV (SP) +°R3 [POP STACK INTO R3 
030316 012601 MOV ($P)+.R1 ‘POP STACK INTO Ri 
47 030320 000207 RTS C © TURN 
49 ;ROUTINE TO GET ADDRESS LIMITS FRUM THE OPERATOR 
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KW11 CLOCK CHECK ROUTINE 
50 CALL: 
51 : MOV #0PB,RO :DPB ADDRESS 
2¢ : JSR PC,DRVPRM *CALL ROUTINE 
ro :RO = DPB ADDRESS BEFORE CALLING THE ROUTINE 
56 030322 010346 DRVPRM: MCy R3,=(SP) TSAVE R3 
57 030324 010446 MOV R4,=(SP) TSAVE RG 
58 030306 “04737 030706 1$: JSR PC,GETLMT 7GET ADDRESS LIMITS 
59 030332 062760 177777 000132 ADD #-{,$FIRST(RO) SEE IF FIRST TIME STARTED 
60 030340 103426 BCS 4 :BR IF NOT 
61 030368 016060 000150 000134 MOV CYLLMT(RO),MAXCYL(RO) LOAD MAXIMUM CYLINDER 
6¢ 030350 016960 000154 000140 MOV TRKLMT(RO) ,MAXTRK(RO) LOAD MAXIMUM TRACK 
63 030356 016000 000152 000144 MOV SECLMT(RO),MAXSEC(RO) :LOAD MAXIMUM SECTOR 
65 030364 005737 001422 TST TSTANY sARE YOU TESTING ANYWHERE ON MEDIA ? . 
66 030370 001004 BNE 2$ “BR IF YES 
67 030372 016060 000156 000136 MOV FE1(RO) ,MINCYL (RO) sRESET MINIMUM CYLINDER ADDRESS 
68 030400 000402 BR 3$ 
69 030402 905060 000136 2$ CLR MINCYL (RO) 7CLEAR MINIMUM CYLINDER 
70 030406 005060 000142 3$: CLR MINTRK (RO) :CLEAR MINIMUM TRACK 
4) 030412 005060 000146 CLR MINSEC(RO) sCLEAR MINIMUM SECTOR 
78 030416 105737 001150 4$: TSTB = SAUTOB jRUNNING IN AUTO MODE ? 
79 030422 001074 BNE 7 BR | S 
80 030424 005737 001332 TST CHGADR [PROGRAM STARTED AT 200 ? 
81 030430 003071 BGT 7$ : F YES 
82 030432 005737 001426 TST DRVPAR ZCHANGE DRIVE PARAMETERS ? 
83 030436 001066 BNE $ ; F NO 
84 030440 016403 061604 MOV TABLE(R4),R3 | PARAMETER TABLE ADDRESS 
85 030444 016063 000150 000002 MOV CYLLMT (ROS ,2(R3) SLOAD CYLINDER LIMIT FOR MINCYL 
86 030452 016063 000150 000010 MOV CYLLMT(RO) . 10(R3) sLOAD CYLINDER LIMIT FOR MAXCYL 
87 030460 016063 000154 000016 MOV TRKLMT(RO) .16(R3) ZLOAD TRACK LIMIT FOR MINTRK 
88 030466 016063 000154 000024 MOV TRKLIMT (RO) 424 (R3) ZLOAD TRACK LIMIT FOR MAXTRK 
89 030474 016063 000152 000032 MOV SECLMT(RO) . 32(R3) ;LOAD SECTOR LIMIT FOR MINSEC 
90 030502 016063 000152 000040 MOV ECLMT(RO) .40(R3) sLOAD SECTOR LIMIT FOR MAXSEC 
91 030510 104401 060022 TYPE SENTLMT 3" ADDRESS LIMITS; * 
32 030514 004737 031110 JSR PC ,PARENT 7GET THE DRIVE'S PARAMETERS 
94 030520 016003 000136 MOV MINCY! (RO),.R3  =STORE MINCYL VALUE 
95 030506 016004 000134 MOV MAXCY!(RO),R4 STORE MAXCYL VALUE 
96 030530 020304 CMP R3,R4 71S MIN. LESS THAN OR EQUAL TO MAX. ? 
97 030532 003404 BLE 5$ ‘BR IF YES 
98 030534 010360 000134 MOV R3,MAXCYL(RO) SWAP MIN, TO MAX, 
99 030540 010460 000136 MOV Ra -MINCYL (RO) :SWAP MAX. TO MIN. 
100 030544 016003 000142 5$: MOV MINTRK(RO),.R3 STORE MINTRK VALUE 
101 030550 016004 000140 MOV MAXTRK(RO),R4 STORE MAXTRK VALUE 
108 030554 020304 CMP R3,R4 71S MIN. LESS THAN OR EQUAL TO MAX. ? 
103 030556 003404 BLE 6$ :BR IF YES 
104 030560 010360 000140 MOV R3,MAXTRK(RO)  ;SWAP MIN. TO MAX, 
105 030564 010460 000142 MOV R4,MINTRK(RO)  :SWAP MAX. TO MIN. 
106 030570 016003 000146 6$: MOV MINSEC(RO),R3 STORE MINSEC VALUE 
107 030574 016004 000144 MOV MAXSEC(RO),R4 STORE MAXSEC VALUE 
108 030600 920304 CMP R3,R4 31S MIN. LESS THAN OR EQUAL TO MAX. ? 
109 030602 003404 BLE 7$ :BR IF YES 
110 030606 010360 000144 MOV R3,MAXSEC(RO) :SWAP MIN, TO MAX. 
11 030610 010460 000146 MOV R4,MINSEC(RO) :SWAP MAX. TO MIN. 


RP 

CK CHECK ROUTINE 
030614 005737 
030620 001016 
0306 3 96908 
0306 10300 
030632 016060 
030640 960080 
pepece 103003 
030650 016060 
030656 016060 
030664 116060 
Benes 116060 
030700 012504 
030702 012603 
030704 000207 
030706 

030706 010146 
030710 005001 
030712 012760 
030720 012760 
030726 012760 
030734 012760 
030742 111001 
030744 122761 
030752 001414 
030754 012760 
030762 012760 
030770 012760 
030776 012760 
031004 

031004 012601 
031006 000207 


001422 
000136 


000156 
000134 


000150 
000136 


000142 
000146 


001057 
001060 
000035 
000041 
000095 


001166 


000061 


000156 


000136 
000156 


000134 


7$: 


8$: 


9$: 


TRO = 


1$: 


sROUTINE TO GET 
CALL: 
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TSTANY 


1 11 


ARE you TESTING ANYWHERE ON MEDIA ? 
MINCYL‘RO) ,FE1(RO) 
FE1(RO) ,MINCYL(RO) 


iS a iteianenan < 1ST FE CYLINDER ? 
PRESET MINIMUM CYLINDER ADDRESS 


MAXCYL (RO) , »FETCRO) ils MAK. CYLINDER < 1ST FE CYLINDER ? 
CYLLMT (RO) ,MAXCYL (RO) ‘RESET MAXIMUM CYLINDER ADDRESS 
MINCYL (RO) ,$CYL (RQ) - s INITIAL CYLINDER VALUE 

MINTRK(RO) .$TRK(R S INITIAL TRACK VALUE 

MINSEC(RO) .$SEC(R * INITIAL SECTOR. VALUE 

(5P)+,R4 33POP STACK INTO RG 

(SP)+,R3 “POP STACK INTO R3 

PC ‘RETURN 


THE ADDRESS LIMITS FOR THE CURRENT DRIVE TYPE 


PC ,GETLMT 


R1,-(SP) 
R1 
erin oFETCR 


#33. SECLMT(RO) 


( 
$3. /DRVTYPCR 
#630. ,FEIC(R 


#630.,CYLLMI(RO)- 
#31... TRKLMT(RO) ; 
#49. ,SECLMT (RO) 


(SP)+,R1 
PC 


. 
(RO) 


1) 
4 


CALL ROUTINE 


DPB ADDRESS BET ORE CALLING THE ROUTINE 
GETLMT: 


Lyte R1 ON STACK 

START FRESH 

3GET ADDRESS OF 1ST FE C 
UME CYLINDER 

3 ASSUME iRACK LIMIT : 

SASSUME SECTOR eal 

GET DRIVE NUMBER 

iI , RPO7 ? 


YE 
‘GET ADDRESS OF 1ST FE C 
GET CYLINDER LI 
GET TRACK LIM IT 


eT SECTOR. LIMIT . 
3;POP STACK INTO R1 
sRETURN 


om 
aD 
D 
v 
oO 
Ns 
+ 


SEQ 0138 
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KW11 CLOCK CHECK ROUTINE 


RO 


1 ROUTINE TO GET THE DRIVE SERIAL NUMBER FROM RPSN REGISTER 
g THIS NUMBERS CONTAINED IN THE REGISTER ARE ONLY THE 4 LSD'S OF THE 
SERIAL NUMBER. 
S CALL: 
5 : MOV #DPB,RO :DPB ADDRESS 
g ; JSR PC,GETID SCALL ROUTINE 
8 3RO = DPB ADDRESS BEFORE CALLING THE ROUTINE 
10 031010 GETID: 
031010 010046 RO,-(SP) 3¢PUSH RO ON STACK 
031012 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 
031014 010246 MOV R2,-(SP) 33PUSH R2 ON STACK 
031016 010546 MOV R5,-(SP) ::PUSH RS ON STACK 
11 031020 010002 MOV RO,R2 3GET INDEX TO DPB 
12 031022 004737 045262 JSR PC, SVRHXX :SAVE ALL REGISTERS 
13 031026 012702 000004 MOV 4,R sFOUR DIGITS TO STORE 
14 031032 016001 000216 MOV SRPSN(RO),R1 ;SERIAL NUMBER 
15 031036 005005 1$: CLR RS 3 ZERO 
16 031040 006101 ROL R1 zPUT THE NEXT DIGIT 
17 031042 006105 ROL R5 s INTO RS 
18 031044 006101 ROL R1 
19 031046 006105 ROL RS 
20 031050 006101 ROL Ri 
21 031052 006105 ROL RS 
22 031054 006101 ROL R1 
23 031656 006105 ROL 
24 031060 062705 000060 ADD #'0,R5 sMAKE IT ASCII 
25 031064 110560 000160 MOVE RS,$DRVSN(RO)  :SAVE DRIVE SERIAL NUMBER DIGIT 
26 031070 005200 INC RO :GET NEXT INDEX FOR DRIVE SERIAL NUMBER 
27 031072 005302 DEC R2 sALL DIGITS TYPED? 
28 031074 003360 BGT 1$ NO == BRANCH 
29 031076 012605 MOV (SP)+,R5 ::POP STACK INTO RS 
031100 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
031102 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
031104 012600 MOV (SP)+,R0 ::POP STACK INTO RO 
30 031106 000207 RTS PC sRETURN 


2 
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PARAMETER ENTRY ROUTINE 


1 .SBTTL PARAMETER ENTRY ROUTINE 
5 pronaen ENTRY ROUTINE 
5 : MOV #ADR,R3 PARAMETER TABLE ADDRESS 
$ ; JSR PC,PARENT 3GET THE PARAMETERS 
8 031110 010346 PARENT: MOV R3,-(SP) SAVE THE Pqpere ree TABLE ,Adoness 
9 Oatite 005037 001334 CLR CFLAG [CLEAR THE ‘CONTROL C° 
10 031116 012337 031126 1$: MOV (R3)+,2$ ADDRESS OF SARAMETER wale’ 
11 031122 001451 BEQ 7$ BR IF AT END OF TABLE 
\ oat 4 104401 TYPE s TYPE THE PARAMETER N 
13 031126 000900 23: «WORD 0 sADDRESS OF PARAMETER NAME TEXT 
14 031130 O15 30¢ MOV (R3)+,R2 MAXIMUM PARAMETER VAL 
15 031132 01230 MOV (R3)+,R5 ADDRESS OF PA TER 
16 031134 011546 MOV (R5) ,=(SP) CURRENT VALUE OF PARAMETER 
17 031136 004737 033332 JSR PC,$SB2D sCONVERT IT TO DECIMAL 
18 031142 004737 032346 JSR PC, SUPRSL : TYPE IT (LEFT JUSTIFIED) 
19 sTYPE THE CURRENT VALUE OF THE PARAMETER 
20 031146 104401 056531 TYPE -BLNKS1 STYPE 1 BLANK 
21 031152 104401 056567 TYPE S a oe 
22 031156 104401 056531 TYPE BYERS ‘TYPE 1 BLANK 
23 031162 104411 RDLIN :READ THE KEYBOAR 
24 031164 012601 MOV (SP)+,R1 ; INPUT ascil eTRING ADDRESS 
25 031166 005737 001334 TST CFLAG WAS (*C) yeep? 
26 031172 0010¢1 BNE 6 R IF IT 
27 031174 004537 033174 JSR R5,CK.DIG ERE CK THE’ D DIGIT (S$) 
031200 031116 1$ : CARRIAGE RETURN ONLY ENTERED 
031202 031246 [PERIOD ONLY ENTERED 
031204 031220 4$ ‘ILLEGAL NPUT 
031206 031214 3$ «TERMINATED WITH ‘ CARRIAGE RETURN 
031210 031220 4$ S TERMINATED WITH Pap 
031212 031232 5$ t TERMINATED WITH A 
28 031214 010215 3$: MOV R2,(R5) MOVE NEW VALUE TO PARAMETER LOCATION 
29 031216 000737 BR 1 3GET MORE PARA AMETERS 
30 031220 104401 060103 4$: TYPE »BADENT 3; "BAD 
31 031224 162703 000006 SUB #6,R3 SDECRERENT ” THE TABLE POINTER 
32 031230 000732 BR 1$ AGAIN 
33 031232 010215 5$: MOV R2,(R5) :NEU VALUE 
34 031234 000404 BR 7$ 
35 031236 005037 001334 6$: CLR CFLAG > CLEAR THE ‘CONTROL C* FLAG 
36 031242 011603 MOV (SP) ,R3 RELOAD THE PARAMETER TABLE ADDRESS 
37 031244 000724 Bh 1$ AGA 
8 931246 005726 7$: TST (SP) + CORRECT THE STACK POINTER 
9 031250 000207 RTS PC ;RETURN 
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PARAMETER ENTRY ROUTINE 


1 : TyPEOUT ASSIGN/DROP ERROR MESSAGE 
g : MOV #MESADR,ASNMSG ;ERROR MESSAGE ADDRESS 
4 3 JSR C,ASNERR 
2 § RETURN 
7 031252 104401 001203 ASNERR: TYPE »SCRLF :CReLF 
8 031256 104401 056567 TYPE ,QUES 
9 031262 104401 056601 TYPE ;DRVMSG ‘TYPE "DRIVE' 
10 031266 010446 MOV R4,-(SP) t:SAVE R4 FOR TYPEOUT 
Zi; TYPE DRIVE NUMBER 
031270 104403 TYPOS 33GO0 TYPE--OCTAL ASCII 
O31¢7¢ 902 -BYTE 2 s3TYPE 2 DIGIT(S 
03127 000 -BYTE 0 > SUPPRESS LEADING ZEROS 
11 031274 104401 TYPE ify YPE SPECIFIC MESSAGE 
12 031276 000000 ASNMSG: .WORD 0 ‘MESSAGE ADDRESS 
13 031300 000207 RTS PC 
15 yDROP DRIVE IF A FATAL ERROR OCCURS 
16 sCALL: 
17 3 JSR PC,DROP 
18 : RETURN 
20 031302 005037 043460 DROP: CLR PERM ZCLR PERMENANT ERROR FLAG 
24 031306 005004 CLR CLEAR R4 FOR DRIVE NUMBER 
25 031310 111004 MOVB rR RO) -R RG MOVE DRIVE NUMBER TO R4 
26 031312 146437 040550 001542 BICB = ATABIT(R4), ASNLST RE MOVE DRIVE FROM ASSIGNED LIST 
27 031320 146437 040550 032020 Bice ATABIT (RG), AUTLST [DELETE DRIVE FROM AUTO ASSIGN LIST 
28 031326 006304 ASL MAKE DRIVE NUMBER INTO A TABLE INDEX 
29 031330 010064 001544 MOV RO, DDRVS(RG) [PUT DRIVE IN DROP LIST 
30 031334 104401 001203 TYPE »SCRLF 
31 031340 104401 057561 TYPE  DROPNG sTYPE ‘?FATAL OR EXCESSIVE ERRORS’ 
32 031344 104401 057616 TYPE ~MSGON :TYPE ‘ON’ 
33 031350 104401 056601 TYPE ,DRVMSG ZTYPE "DRIVE* 
34 031354 006204 ASR R4 :DRIVE NUMBER 
35 031356 010446 MOV R4,-(SP) [SAVE R4 FOR TYPEOUT 
iETYPE DRIVE NUMBER 
031360 104403 TYPOS ::G0 TYPE--OCTAL ASCII 
031362 002 .BYTE 2 1300 20 
031363 000 .BYTE 0 i i SUPPRESS LEADING ZEROS 
36 031364 104401 001203 TYPE »SCRLE :CR=LF 
37 031370 000207 1$: RTS PC 
23 yROUTINE TO DROP DRIVE IF ERRORS BECOMES EXCESSIVE 
41 031372 032777 000020 147554 ABNRML: BIT #SW04 ,aSWR :SEE IF SUITCH 4 SET 
42 031400 001006 BN RIF IT'S SET 
43 031402 023760 001456 000102 CMP MAXER, STOTAL(RO)’ HECK TOTAL ERROR VALUE 
44 031410 101002 BHI 1$ R IF Efnons DO NOT EXCEED MAX 
52 031412 000137 031302 JMP DROP :DROP THE DRIVE 
23 031416 000207 1$: RTS PC SRE TURN 
35 sROUTINE TO CHECK FOR END OF PASS AND END OF TEST 
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END OF PASS ROUTINE 2:06:52 PAGE 38 SEQ 0142 


1 -SBTTL END OF PASS ROUTINE 


RII itil iit ii itiiiiiiiitititiiititititititititi) 
s*INCREMENT THE PASS NUMBER ($PASS) 

:*IF THERES A MONITOR GO TO IT 

s*IF THERE ISN'T JUMP TO RTURN 


031420 SEOP: 

031420 010446 MOV R4,=(SP) SSAVE R4 

031422 111004 1$: MOVB (RO), R4 ‘MOVE DRIVE NUMBER 

031424 105737 001150 TSTB = $AUTOB ;RUNNING IN AUTO MODE ? 

931286 001410 BEQ $ “BR IF N 

031432 136457 040550 032020 Bie ATABIT(R4),AUTLST vit DRIVE ALREADY ASSIGNED TO AUTO LIST ? 
031442 156437 040550 032020 BISB ATABIT(R4),AUTLST ;ADD DRIVE TO AUTO ASSIGN LIST 
031450 000441 BR 3$ 

031452 026037 000114 001474 2$: CMP SPASSC(RO) ,PASSES :SEE IF AT END OF TEST 

031460 103435 BLO 7BR IF NOT 

031462 032777 000020 147464 BIT #SWO4 ,aSWR :TYPE END OF TEST MESSAGE (SwO4=1) ? 
031470 001031 BNE 3% ‘BR IF NO 

031472 104401 001203 TYPE ~SCRLF CRLF 

031476 104401 1203 TYPE *SCRLF CRLF 

031502 104401 057327 TYPE *DASH13 TTYPE Seeeeeeeeccnne ' 

031506 104401 057417 TYPE ~MSGEOT “TYPE "END OF [ooe--------------- EOT' 
031512 146437 040550 001542 BICB ATABIT(R4),ASNLST -DELETE DRIVE FROM ASSIGNED LIST 
031520 006304 ASL R :MAKE DRIVE NUMBER INTO TABLE INDEX 
031522 010064 001544 MOV RO, DDRVS(R4) [PUT BLOCK ADDRESS INTO DROP LIST 
031526 105737 001542 1TSTB —ASNLST TALL DRIVES ARE DROPPED ? 

031532 001062 BNE 7$ [BR IF NO 

031534 005237 001216 INC SDEVCT SINCREMENT DEVICE COUNT 

031540 005237 001214 INC $PASS ‘INCREMENT THE PASS COUNT 

031544 042737 100000 001214 BIC #100000,$PASS AVOID NEGATIVE NUMBER 

031552 000452 BR 7$ 

031554 032777 000400 147372 3$: BIT #SW08,aSWR ; INHIBIT END OF PASS TYPEOUT (SWwO8=1) ? 
031562 001022 BNE 4$ 'BR IF YES 

031564 104401 001203 TYPE »SCRLF 7CRL 

031570 104401 001203 TYPE *SCRL > CR=LF 

031574 104401 057327 TYPE *DASH13 TYPE Seccenceceeene ' 

031600 104401 057371 TYPE *MSGEOP [TYPE "END OF PASS’ 

031604 104401 001203 TYPE *SCRLF >CR-L 

031610 004737 026146 JSR PC STIME :TYPE ELAPSED TIME 

031614 104401 057321 TYPE DASH TTYPE ‘o---- y 

031620 104401 057345 TYPE MSGSUM ;TYPE "SUMMARY 

031624 004737 025042 JSR PC ONE SUM STYPE ONE DRIVE SUMMARY 

031630 010346 4$: MOV R3,-(SP) TSAVE R3 

031632 010004 MOV RO.R4 SDRIVE'S BLOCK ADDRESS 

031634 062704 000036 ADD #SROPAS RG *ADD THE STARTING ADDR OF SECTIONS TO CLEAR 
031640 012703 000016 MOV #<SOPERC-$RDPAS>+2,R3  ;NUMBER OF LOCNS TO BE CLEARED 
031644 005024 5$: CLR (R4)+ :CLEAR LOCATIONS 'SRDPAS* = "SOPERC' IN DPB 
031646 162703 000002 SUB #2,R3 *DONE CLEARING YET ? 

031652 001374 BNE 5$ [BR IF NO 

031654 012603 MOV (SP)+,R3 SRESTORE R3 

031656 005260 000114 INC SPASSC (RO) S INCREMENT THE PASS COUNT 


N11 
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END OF PASS ROUTINE E SEQ 0143 


031662 105737 001150 6$: 1STB = $AUTOB ;RUNNING IN AUTO MODE ? 
031666 901404 BEO ‘BR IF N 
031670 023737 001542 032020 CMP ASNLST,AUTLST HAVE ALL DRIVES COMPLETED PASS IN AUTO MODE ? 
931676 001402 BEQ ‘BR IF YES 
031700 012604 7$: MOV (SP)+,R4 SRESTORE R4 
031702 000207 RTS PC S RETURN 
031704 005237 032020 8$: INC AUTLST :CLEAR AUTO ASSIGN LIST FOR NEXT PASS AND 
031710 SEE BNE $ SWAIT FOR TTY 
031712 005237 001216 INC SDEVCT SINCREMENT DEVICE COUNT 
021716 005237 001214 INC SPASS ts INCREMENT THE PASS NUMBER 
031798 042737 100000 001214 BIC #100000,$PASS ::DON'T ALLOW A NEG. NUMBER 
031730 005327 DEC (PC)+ +; LOOP? 
031732 000001 SEUPCT: .WORD 
031734 003013 BGT $DOAGN srYES 
031736 012737 MOV (PC)+,a(PC)* RESTORE COUNTER 
031740 000001 SENDCT: .WORD 1 
031742 031732 $EOPCT 
031744 013700 000042 $GET42: MOV a#42,R0 3:GET MONITOR ADDRESS 
031750 001405 EQ SDOAGN *:BRANCH IF NO MONITOR 
031752 000005 RESET s:;CLEAR THE WORLD 
031754 004710 SENDAD: JSR PC, (RO) +:G0 TO MONITOR 
031756 000240 NOP t:SAVE ROOM 
031760 000240 NOP $: 
031762 000240 NOP SZACT11 
031764 SDOAGN: 
031764 000137 JMP a(Pc)s : :RETURN 
, 031766 031770 SRTNAD: .WORD RTURN 
3 031770 005037 177776 RTURN: CLR PS :SET PRIORITY TO 0 
4 031774 012706 001100 MOV #STACK,SP TRESTORE STACK 
§ 032000 005237 001212 INC STESTN S INCREMENT THE TEST NUMBER IN THE MAIL BOX 
6 032004 004737 033430 JSR PC, $TKINT ‘MAKE SURE KEYBOARD INTERRUPT AND 
7 032010 004737 024514 JSR PC.CKCLK [SYSTEM CLOCK ARE STILL ON. 
g 032014 000137 006340 MP MAIN *RETURN TO LOOP 
10 032020 000000 AUTLST: .WORD 0 yAUTO ASSIGN LIST (USED IN 4UTO RUN MODE? 
t2 : ROUTINE TO GET THE REMAINDER OF THE RANDOM NUMBER 
s CALL: 
14 : MOV NUMBER ,RS sDIVISOR INTO RS 
15 : JSR PC,GETREM 
16 : RETURN ;REMAINDER IS IN R5 
18 032022 013746 037226 GETREM: MOV SLONUM, =(SP) ;STORE RANDOM NUMBER ON THE STACK FOR DIVIDE 
19 032026 013746 037224 MOV SHINUM, -(SP) SUPPER PART 
20 032032 010546 MOV R5,-(SP) ‘PUT THE DIVISOR ONTO THE STACK 
21 032034 004737 032046 JSR PC. $DIV [DIVIDE THE RANDOM NUMBERS 
22 032040 012605 MOV (SP)+,R5 [PUT THE REMAINDER INTO R5 
23 032042 005726 1ST (SP)+ TADJUST THE STACK POINTER 
34 032044 000207 RTS PC 
36 .SBTTL INTEGER DIVIDE ROUTINE 
28 ppteeeeentearerereteeeeteereneeeeeteenenasaneeneneeeAeenenenenene 
29 S*THIS ROUTINE WILL DIVIDE A 32-BIT TWwO'S COMPLEMENT INTEGER 
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IDE ROUTINE 
s*DIVIDEND BY A 16-BIT TWO'S Saat ioe yl INTEGER DIVISOR GIVING 
3*A 16-BIT TWO'S COMPLEMENT INTEGER QUOTIENT AND A 16-BIT REMAINDER. 
s*DIVISION WILL_BE PERFORMED SO THAT THE REMAINDER IS OF THE 
od SIGN AS THE DIVIDEND. 
be MOV LOW DIVIDEND,-(SP) 33 THE HIGH DIVIDEND MUST BE < 1/2 
3* MOV HIGH DIVIDEND, =(SP) 3:AS LARGE AS THE DIVISOR 
> MOV DIVISOR,=(SP) 
i JSR PC,SDIV 
:* RETURN ;QUOTIENT & REMAINDER ARE ON THE STACK 
- STACK NO ERROR OVERFLOW DIVIDE BY ZERO 
38 TOP REMAINDER ALL ZEROS ALL ONES 
3? +2 QUOTIENT ALL ZEROS ALL ONES 
-* 
7* 
Z*NOTE: THIS ROUTINE WILL LINK TO 1HE DIVISION SUBROUTINE ("M.DPID"). 
046 104412 $DIV: SAVREG sSiORE RO = R5 
050 016605 000026 MOV 26(SP),R5 ;DIVISOR 
054 005004 CLR 4 OTHER DIVISOR WORD 
056 016602 000030 MOV 30(SP),R2 UPPER DIVIDEND WORD 
016603 000032 MOV 32(SP),R5 ;LOWER DIVIDEND WORD 
066 005000 CLR RO sCLEAR OTHER DIVIDEND REGISTERS 
70 005001 CLR 1 
72 004737 032170 JSR PC,.M.DPID G0 TO THE DIVIDE ROUTINE 
76 010166 000030 MOV R1,30(SP) ;REMAINDER ON THE STACK 
02 010366 000032 MOV R3,32(SP) ; QUOTIENT ON THE STACK 
06 104413 RESREG ;sRESTORE RO - R 
10 012616 MOV (SP)+, (SP) :MOVE RETURN UP THE STACK 
12 000207 RTS 


-SBTTL DOUBLE DIVIDE ROUTINE 


SHRRARAAAAAARAEARAAARAAEARAAAAARAAAAERARAAAAAAAAAAAAAAAARARAEAEREREE 


tSTHIS ROUTINE A DIVIDE A 32-BIT TWO'S COMPLEMENT INTEGER 
:*DIVIDEND BY A 52-81 T TWwO'S COMPLEMENT INTEGER DIVISOR GIVING 
[tA 16-BIT TwO'S COMPLEMENT INTEGER QUOTIENT AND A 32-BIT REMAINDER. 
S*DIVISION WILL BE PERFORMED SO THAT THE REMAINDER 1S OF THE 
s0SAne SIGN AS THE DIVIDEND. 
ie MOV LOW DIVIDEND, -(SP) 7: THE HIGH DIVIDEND MUST aut < 1/2 
te MOV HIGH DIVIDEND = (SP) t:AS LARGE AS THE DIVISOR 
3* MOV LOW DIVISOR,= 

7* MOV HIGH DIVISOR, aisp) 
3¢ JSR PC, $DBDIV 
3* RETURN ::QUOTIENT & REMAINDER ARE ON THE STACK 
°* 

3 STACK NO ERROR OVERFLOW DIVIDE BY ZERO 

*® eons eeeceenen i . ee #®®8e880e"80 -~= #£+;4;@8= |+|+4«=&e«e«seseercescseecece«e 

ie TOP REMAINDER ALL ZEROS ALL ONES (MSD) 

3 +2 REMAINDER ALL ZEROS ALL ONES (LSD) 

$e +4 QUOTIENT ALL ZEROS ALL ONES 

:* 

3* 

SeNOTE: THIS ROUTINE WILL LINK TO THE DIVISION SUBROUTINE ("M.DPID"). 
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DOUBLE DIVIDE ROUTINE 


87 
88 032114 104412 
89 032116 016604 
90 032122 016605 
91 032126 Beens 
3 032152 01660 
93 032136 005000 
94 835109 005001 
95 032142 004737 
96 032146 010066 
97 032152 010166 
98 835128 910788 
99 032162 10441 
100 032164 012616 
101 032166 000207 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 032170 012746 
117 032174 010446 
118 032176 010546 
119 032200 005466 
120 032204 005416 
121 032206 005666 
122 032212 061601 
123 032214 005500 
124 032216 066600 
125 032222 103445 
126 032224 005046 
127 032226 006103 
128 032230 006102 
129 032232 006101 
130 BesSee 006100 
131 032236 005716 
138 032240 601410 
133 032242 005016 
if 0 35$¢6 66601 
135 032250 005500 
136 b35$ee 005516 
137 032254 066600 
138 O35505 00404 
139 032262 060501 
140 032264 005500 
141 032266 005516 
166 032270 060400 
143 032272 005516 


000040 


000002 
000002 


000002 


000002 


000004 


$DBDIV: 


:RETURN 


M.DPID: 


M.DP40: 


M.DP41: 


M.DP42: 


SAVREG 
M 
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sSTORE RO = R5 
G6 (58) oRe HIGH DIVISOR WORD 
O(SP),RS :LOW DIVISOR WORD 
eo (20) Re UPPER DIVIDEND WORD 
34(SP),R s;LOWER DIVIDEND WORD 
I CLEAR OTHER DIVIDEND REGISTERS 
PC,M.DPID G0 TO THE DIVIDE ROUTINE 
RO,30(SP) ;REMAINDER ON THE STACK (MSD) 
R1,32(SP) REMAINDER ON THE iH ACK (LSD) 
R3,34(SP) QUOTIENT ON A STACK 
sRESTORE RO = R 
eon ace ;MOVE RETURN UP THE STACK 


DOUBLE PRECISION DIVISION SUBROUTINE 


REMAINDER AFTER D 
QUOTIENT AFTER Dl 


PC,M.DPID 
ND = RO=R1-R2-R3 (RO=MSD) 
= RG=R5 (RG=MSD) 
IVISION = RO-R1 (RO=MSD) fi. 
VISION = R2-R3 (R2=MSD) 


#40,-(SP) s COUNTER FOR DIVISION CYCLES 
R4,-(SP) THIGH ORDER 
R5.=(SP) iLO ORDER DIVISOR TO THE STACK 
2(§P) FORM NEGATIV 

SP tVERSION OF THE DIVISOR 
2(SP) 
asP,R1 
RO = :PERFORM THE INITIAL SUBTRACTION 
m.9P56 sIF CARRY THEN OVERFLOW HAS OCCURRED 
=i P) ‘THIS IS A LONGER LASTING CARRY BIT 
R2 
R1 
RO 
asP TEST "CARRY" INDICATOR 
M.DP41 [IF NO CARRY’ THEN ADD ELSE SUBTRACT 

P [CLEAR UP FOR NEXT TIME 
2(SP),Ri 

0 ADD -(DIVISOR) 

P TSET CARRY’ 


zADC +(DIVISOR) 
asP s f SET “‘CARRY"’ 


:SET "CARRY" 


SEQ 0146 
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i2N DIVISION SUBROUTINE 


E 
DOUBLE PRECISION 
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SUPRS = TYPE ASCIZ, REPLACE LEADING 0°S WITH BLANKS 


1 .SBTTL SUPRS = TYPE ASCIZ, REPLACE LEADING 0°S WITH BLANKS 
é .SBTTL SUPRSL =TYPE ASCIZ, LEFT JUSTIFY 
4 FRR AA AA AAAAARAREREAAAEAEEAR AAA AREHKHAHRERKARKeKeKeeeeReAeeeneene 
5 CALL: 
5 : MOV WNUMADR,-(SP) FIRST ADDRESS OF ASCIZ STRING 
c bo JSR PC,SUPRS 
9 : MOV WNUMADR,<(SP) FIRST ADDRESS OF ASCIZ STRING 
19 3 JSR PC, SUPRSL 
i 032346 010046 SUPRSL: MOV RO,-(SP) :SAVE RO 
13 032350 016600 000004 MOV 4(§P) RO ‘GET POINTER TO MESSAGE 
14 032354 005037 032436 CLR SUPR2 
15 032360 000405 BR SUPRI 
17 032362 010046 SUPRS: MOV RO,=<SP) sSAVE RO 
18 032364 016600 000004 MOV 4(§P),RO :GET POINTER TO MESSAGE 
19 032370 010037 032436 MOV RO, SUPR2 [GET POINTER FOR TYPING 
20 032374 SUPR1: 
21 032374 105710 1$: TSTB (RO) s TEST FOR TERMINATOR 
22 032376 001406 BEQ YES i 
23 052400 122710 000060 CMPBs#''0, (ROD [1S THIS A "0" ? 
24 032404 001006 BNE $ N 
25 032406 112720 000040 MOVB  #40,(RO)+ SREPLACE IT WiTH A "'BLANK’ 
26 032412 000770 BR 1$ SNEXT CHAR, 
27 032414 005300 2$: DEC RO BACKUP 1 
28 032416 112710 000060 MOVB = #"0,, (RO) [MAKE | 
29 032422 005737 032436 3$: TST SUPR2 TLEFT JUSTIFY ? 
30 032426 001002 BNE 4$ NO 
31 032430 010037 032436 MOV RO, SUPR2 YES 
32 032434 104401 4$: TYPE 
33 032436 000000 SUPR2: .WORD 0 
34 032440 012600 MOV (SP)+,RO ;RESTORE RO 
35 032442 012616 MOV (SP)+, (SP) sRESTORE STACK 
36 032444 005207 RTS PC 


CZRJOAO RPO? PERF EXER MACRO V04.00 


- TYPE ASCIZ, REPLACE LEADING 0°S WITH 


4 

5 

6 

7 

8 

9 

10 

+3 

18 

14 

15 

16 032446 010046 

17 932450 016600 000004 
18 032454 005037 032536 
1 032460 000405 
21 032462 010046 
22 032464 016600 000004 
23 032470 010037 032536 
24 032474 
25 032474 105710 

26 032476 001406 
27 032500 122710 000060 
28 032504 001006 
29 032506 112720 000040 
30 032512 000770 

31 032514 005300 

32 032516 112710 000060 
33 032522 005737 032536 
34 032526 201006 

35 032550 010037 032536 
36 032534 104414 

37 032536 000000 

38 032540 012600 

39 032542 012616 
40 032544 000207 
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-SBTTL = TYPE ASCIZ, REPLACE LEADING 7 S WITH BLANKS 
-SBTTL S$SUPRL = TYPE ASCIZ, LEFT JUSTIFY 


PRAAAKHREKEKAAAK HAKATA KEARAe Hee eHeeKeeneneeakeateteeeeeeeese 


2 THIS ROUTINE IS SAME AS ‘SUPRSL’ AND 1 SUERS EXCEPT THAT IT 


3WILL SUPPRESS THE ERROR TYPEOUT | 


F Swis=1. TH pee. IS ACCOMPLISHED BY 


23 te THE TRAP CALL ‘DISPLY’, INSTEAD OF ‘TYPE’ 


; MOV #NUMADR,=(SP) 
Fe JSR PC, SSUPRS 
: MOV #NURADR -(SP) 
: JSR SSUPRL 
$SUPRL: MOV RO,=(SP) 
MOV 4(§P),RO 
CLR $SUPRE 
$SUPRI 
$SUPRS: MOV RO,-(SP) 
MOV 4(§P),RO 
MOV RO, $SUPR2 
SSUPR1: 
1$: TSTB = (RO 
BEQ 2$ 
CMPBs#' "0, (RO) 
BNE 3$ 
MOVB #40, (R0)+ 
BR 1$ 
2s: DEC RO 
MOVB #0, (RO) 
3$: TST $SUPR2 
BNE 4$ 
OV RO, SSUPR2 
4$: DISPLY 
S$SUPR2: .WORD 0 
MOV (SP)+,RO 
MOV (SP) +, (SP) 
RTS PC 


sFIRS1 ADDRESS OF ASCIZ STRING 


sFIRST ADDRESS OF ASCIZ STRING 


:SAVE RO 
;GET POINTER TG MESSAGE 


SAVE RO 
:GET POINTER TO MESSAGE 
3GET POINTER FOR TYPING 


atest FOR TERMINATOR 

1s THIS A ‘'0"' ? 

SREPLACE 11 IT WITH A *‘BLANK’® 
s;BACKUP_1 

:MAK KE IT “/* 

SLEFT JUSTIFY ? 

:NO 


YES 
iTYPE, UNLESS Sw13=1 


sRESTORE RO 
sRESTORE STACK 


SEQ 0148 
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SSUPRL = TYPE ASCIZ, LEFT JUSTIFY 


1 : ROUTINE TO REPLACE LEADING ZEROS IN A NUMERIC STRING WITH SPACES 
g : MOV #ADR. (SP) ZADDRESS OF NUMBER (IN ASCII) 
4 : JSR R5,REPLZ SREPLACE PRECEDING ZEROS WITH BLANKS 
2 co .WORD N :"N' IS NUMBER OF DIGITS TO BE TYPED 
7 : MOV #ADR,=(SP) sADDRESS OF NUMBER (IN ASCII) 
8 : JSR RS,FILLZ :TYPE PRECEDING ZEROS 
R ; .WORD N :'N' IS NUMBER OF DIGITS TO BE TYPED 
" 032546 005237 032654 FILLZ: INC FILLO SLEAVE ZERO'S 
ig 032552 010946 REPLZ: MOV RO,<(SP) :SAVE RO : 
14 032554 016600 000004 MOV 4(§P),RO SADDRESS OF NUMBER TO RO 
15 032560 005737 032654 TST FILLO SLEAVE PRECEDING ZEROS ? 
16 032564 001014 BNE 5 3 BR I 
17 032566 122710 000060 1$: CMPB Ses #0, (RO) ‘BYTE EQUAL TO ASCII ‘O° ? 
18 032572 001004 BNE ‘BR IF NOT 
19 032574 112710 000040 MOVB #40,(R0) SREPLACE THE ZERO WITH A SPACE 
20 032600 005200 INC RO SINCREMENT THE BYTE ADDRESS 
21 032602 000771 BR 1$ 'GO BACK AND LOOK FOR MORE LEADING ZEROS 
22 032604 105710 2$ TSTB (RO) [SEE IF ZERO BYTE TERMINATOR 
23 032606 001003 BNE 3$ ; NOT 
24 032610 005300 DEC RO ‘BACKUP STRING POINTER 
25 032612 112710 000060 MOVB = #0, (RO) ‘PUT A ZERO BACK IN 
26 032616 016600 000004 3$: MOV 4(SP),RO [PUT ADDRESS OF FIRST CHARACTER ON STACK 
27 032622 105720 4$: TSTB —s-_- (RO) + ‘SEE IF ZERO BYTE TERMINATOR 
28 032624 001376 BNE 4$ :BR IF NOT 
29 032626 005300 DEC RO sBACKUP STRING POINTER 
30 032630 162500 SUB (R5)+,RO SADJUST ADDRESS 
31 032632 010037 032640 MOV RO,5$ :GET ADDRESS FOR TYPEOUT 
32 032036 104401 TYPE : TYP NUMBER 
®3 032640 000000 5$: .WORD 0 TADDRESS OF NUMBER 
34 032642 012600 MOV (SP)+,RO +:;POP STACK INTO RO 
35 032644 012616 MOV (SP)+. (SP) -TRESTORE STACK 
36 032646 005037 032654 CLR FILLO SRESET FILL FLAG 
37 032652 000205 RTS R5 RETURN 
39 032654 000000 FILLO: .WORD 0 rIF SET, LEAVE PRECEDING ZEROS FOR TYPE 
41 sTHIS ROUTINE IS SAME AS *REPLZ* AND FULLZ* EXCEPT THAT IT 
42 tWILL SUPPRESS THE ERROR TYPEOUT IF SwW13=1. THIS ACCOMPLISHED BY 
43 :USED TRAP CALL 'DISPLY', INSTEAD OF ‘TYPE’. 
45 : MOV #ADR,-(SP) TADDRESS OF NUMBER (IN ASCII) 
46 : JSR R5,$REPLZ SREPLACE PRECEDING ZEROS WITH BLANKS 
ref 5 o «WORD N 3"N® IS NUMBER OF DIGITS TO BE TYPED 
49 : MOV #ADR,=(SP) ZADDRESS OF NUMBER (IN ASCII) 
50 : JSR RS,SFILLZ STYPE PRECEDING ZEROS 
2) 3 WORD N :"N' IS NUMBER OF DIGITS TO BE TYPED 
58 032656 005237 032654 $FILLZ: INC FILLO ZLEAVE ZERO'S 
3 032662 010046 SREPLZ: MOV RO,-(SP) :SAVE RO 
56 032664 016600 000004 MOV 4(§P),RO SADDRESS OF NUMBER TO RO 
57 032670 005737 032654 1ST FILLO TLEAVE PRECEDING ZEROS ? 


aon 
un 
cw 
ve 
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RL = TYPE ASCIZ, LEFT JUSTIF 
58 032674 991014 BNE 3$ :BR IF YES 
59 032676 122710 000060 1$: CMPB es #0), (RO) ‘BYTE EQUAL TO ASCII ‘0° ? 
60 032702 901004 BNE 2$ : 
61 032704 bag 10 000040 MOVB #40, (RO) * REPLACE THE ZERO ye : SPACE 
6¢ 0 £19 00 200 INC RO S INCREMENT THE BYTE ADDRESS 
63 032712 000771 BR 1$ 360 BACK AND LOOK Fon” DORE LEADING ZEROS 
64 032714 A329 2$ TSTB (RO) SEE ‘i ZERO STE TERMINATOR 
65 032716 00100 BNE 3$ R IF NO 
66 032720 005300 DEC RO :BACKUP STRING POINTER 
67 0327 2 112710 000060 MOVB = #0, (RO) A ZERO BACK IN 
68 032726 016600 000004 33 MOV 4(SP),RO Pur ADDRESS OF Ar CHARACTER ON STACK 
69 05 732 105720 i$ TSTB = (RO) + : SEE IF ZERO BYTE TERMINATOR 
70 032734 001376 BNE 4$ ‘BR IF NOT 
71 032736 005300 DEC RO ‘BACKUP STRING POINTER 
Le 032740 162500 SUB (R5)¢4,89 SADJUS ST ADDRESS 
73 032742 010037 032750 MOV RO,5$ GET ADDRESS 4 qveeeue 
74 032746 104414 DISPLY s TYPE, UNLESS S 
75 032750 000000 5$: .WORD 0 ZADDRE SS OF NABER 
76 032752 012600 MOV (SP)+,RO =;POP STACK INTO RO 
77 032754 012616 MOV (SP)+, (SP) RESTORE STACK 
78 032756 005037 032654 CLR FILLO SRESET fit FLAG 
9 032762 000205 RTS RS *RETUR 
4 7 th TO TYPE THE DRIVE SERIAL NUMBER IN DECIMAL 
93 ; MOV #DPB,RO sADDRESS OF DRIVE PARAMETER BLOCK 
ge ; oR JSR PC, TYDRV sCALL ROUTINE 
96 : MOV #DPB,RO sADDRESS OF DRIVE PARAMETER BLOCK 
24 : JSR PC, TYPDRV sCALL ROUTINE(WITH NO HEADER MESSAGE) 
132 [RO = DPB ADDRESS BEFORE CALLING THE ROUTINE 
101 032764 104401 060152 TYDRV: TYPE ~DRVSN sive ‘DRV S/N: ° 
102 03277 104401 057052 TYPDRV: TYPE »MSGPG YPE ‘PG'° 
103 032774 010037 033010 MOV RO,1$ «ADDRESS OF DPB 
104 033000 062737 000160 033010 ADD #SORVSN,1$ SINDEX TO DRIVE SERIAL NUMBER 
105 033006 104401 TYPE sTYPE THE DRIVE SERIAL NUMBER 
106 033010 000000 1$: ~WORD 0 rt ed dl OF DRIVE SERIAL NUMBER FIELD 
107 033012 104401 057711 TYPE »PERIOD YPE 
108 033016 000207 RTS PC RETURN’ 
110 sROUTINE TO TYPE ERRORS 
111 sCALL 
112 : DISPLY sMUST DEFINED IN ‘TRAP* TABLE 
113 : MESADR SADDRESS OF MESSAGE 
ie : RETURN 
116 033020 032777 020000 146126 S$DSPLY: BIT #B1T13,aSwWR s INHIBIT ERROR TYPEOUT ? 
117 0350¢6 001004 BNE 1$ ‘BR IF YES 
118 033030 005037 177776 CLR aaPs ‘SET PRIORITY TO ZERO 
119 033034 000137 035652 JMP $TYPE [TYPE THE MESSAGE 
120 033040 062716 000002 1$: ADD #2, (SP) S INCREMENT THE RETURN 
121 033044 000002 RTI ;RETURN 
123 ;THIS ROUTINE IS USED TO CHECK IF AN 
124 SASCII CHARACTER 1S A DIGIT BETWEEN 0 AND 7 


IN. AI AAArorornonun) 


AR Ww OOo WO PU HO O00 NOME WA OOO SUI Ud O00 OPUr 
tolaeletetots) 


NO SNOLSNO 
ooo 4 
oosf—onvonm 
OU] | Ww 
NNO 
OnNuooovon 
MYVNINE NS 


oooooc[“eoo 

ooom 
SOOnroeneos 
ViVINN Sans 


AOAAASAOCMMANMNMNMNMNMN ES BEELER EE PUIG 
oo0o0 4 


FRANVVSSEIEF 


NNN NOOO 
COCoOoCoOoooOo 
WWANAAANAA 
WANNA 
es Ht 
Wn & Ww 
FOSMOSNMA SMW 


ee ee ee ee ee eee 
oon~~N 

-90 Cone 

ooooo-o-o— 

SoSoOoOONoNvoeoeo 

YVnonnNnuNN 


090060 
000067 


177770 


000060 
000071 


000060 


000054 
000056 
033074 
033046 


I 12 


CZRJOAO RPO? PERF EXER MACRO V04.00 1-JAN-83 12:06:52 PAGE 41- 
SSUPRL = TYPE ASCIYS LEFT GUSTIFY | | NTO) (2106892 PAGE G1-2 


3 CALL 
; MOV #ADR,R1 
3 JSR R5,CK.OCT 
s RETURN1 
; RETURN2 
CK.OCT: CMPB (R1),#°0 
BLO 1$ 
CMPB (R1),#'7 
BHI 1$ 
MOVB (R1),R 
BIC #*C7,R 
TST (R5)+ 
1$: RTS ib) 


:T 11S ROUTINE IS USED TO CHECK A 
a, ene IF IT IS A DIGIT 


: MOV #ADR,R1 
JSR R5,CK.DEC 


$ RETURNI 

: RETURN2 

CK.DEC: CMPB = (R1),# 0 
BLO 1$ 
CMPB sR) , #"9) 
BHI 1$ 
MOVB (R11), R2 
BIC #°O,R2 
TST (R554 

1$: RTS R5 

:THIS ROUTINE WILL CHECK AN ASCI 

[DETERMINE WHAT IT IS. 

sCALL 

; MOV #ADR,RI1 

; JSR R5,CK.CHR 

: RETURN ADR 

: RETURN ADR2 

: RETURN ADR3 

: RETURN ADR 

: RETURN ADRS 

: RETURN ADR6 

CK.CHR: TSTB = (R1) 
BEQ 3$ 
CMPBs«( R11) #",, 
BEQ 2$ 
CMPBs«(R1)  #". 
BEQ 1$ 
JSR R5,CK.DEC 
BR 4$ 
JSR R5,CK.OCT 
1ST (R5)¢ 


SEQ 0151 
sADDRESS OF ASCII _ CHARACTER 
sCHECK THE CHARACTER 
;CHARACTER IS NOT BETWEEN 0-7 
sCHARACTER IS IN R2 AS A 
sOCTAL DIGIT 


sLESS THAN ZERO? 
;YES == BRANCH 
;GREATER THAN SEVEN? 
3YES -- BRANCH 

3GET THE CHARACTER 
sSTRIP AWAY THE ASCII 
sADJUST FOR RETURN 
;RETURN 


N ASCII CHARACTER 
BETWEEN 0 AND 9. 


ADDRESS OF ASCII CHARACTER 
HARACTER 


LESS THAN ZERO? 
;YE RA 


z ees NCH 
;GREATER THAN NINE? 
YES == BRANCH 

GET THE CHARACTER 
sSTRIP_ AWAY THE ASCII 


sADJUST FOR RETURN 
TURN 


I CHARACTER TO 


sADDRESS OF ASCII CHARACTER 
CHECK CHARACTER 

;UNKNOWN CHARACTER 

CARRIAGE RETURN * (R1)=ADR+1 
HS ae (R1)=ADR+ 


W 
WEEN 8 AND 9. 
T * (R1)=ADR¢1 


;“"CARRIAGE RETURN’? 
S_ == BRANCH 
MM #%% 


dy) 


1 
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182 033156 005725 TST (R54 ;DIGIT BETWEEN 0-7 
188 03 160 003795 1$: «TST = (RS) ;PERIO 
184 033162 005725 gs: TST (RB) ; COMMA 
185 033164 005725 $: TST  — (R5)4 SCARRIAGE RETURN 
186 033166 005201 INC R1 sMOVE POINTER TO NEXT CHARACTER 
187 033170 011505 4$ MOV = (RS) RS SUNKNOWN CHARACTER 
188 035172 000205 RTS RS ;RETURN 
190 sTHIS ROUTINE CHECKS AN ASCII STRING FOR LEGAL 
13) Tepes AND FORMS A DECIMAL VALUE BINARY NUMBER IN 82. 
193 ; MOV #ADR,R1 ADDRESS OF ASCIZ STRING 
194 : MOV #NUM,R2 MAX, MAGNITUDE OF INPUT NUMBER 
195 ; JSR RS, CK.DIG CHECK DIGITS 
196 3 RETURN ADR1 3. .CR’’ ONLY ENTERED == R2=0 
197 $ RETURN ADR 3"'PERIOD'’ ONLY ENTERED == R2=0 
198 3 RETURN ADR ILLEGAL CHARACTER OR INPUT TOO LARGE == R2=? 
199 3 RETURN ADR4 7""CR’’ == R2 = NUMBER 
200 3 RETURN ADRS 7'"COMMA’’ == R2 = NUMB=R 
oO) 3 RETURN ADR6 ;"'PERIOD’' -= R2 = NUMIJER 
203 033174 010446 CK.DIG: MOV R4,=(SP) SAVE R4 
204 033176 010346 MOV RB, =( SP) :SAVE R3 
205 033200 010246 MOV R2,-(SP) SAVE THE MAX. SIZE ON THE STACK 
206 033202 005002 CLR RO :START WITH 0 
207 033204 005003 CLR RS 
208 033206 005004 CLR sR 
209 033210 004537 033122 JSR R5,CK.CHR sCHECK ONE CHARACTER 
033214 033510 6$ s ILLEGAL CHARACTER 
033216 033316 9$ :CARRIAGE RETURN 
033220 033310 6$ lie 
033222 033312 7$ oe 
033224 033230 1$ :DIGIT 0-7 
035226 033230 i$ :DIGIT 8-9 
210 033250 062705 000004 1$: ADD #4 ,R5 :STEP_RETURN POINTER PAST “'CR'’ & ‘PERIOD’ RETURNS 
211 033234 006303 28: ASL = R SINPUT NUMBER *2 
212 033236 010346 MOV «RB, =( SP) ;SAVE *2 
213 033240 006303 ASL RS 284 
214 033242 006303 ASL RB :*8 
215 033244 062603 ADD (SP) +, R3 3(#2)4(#8) = #10 
216 033246 060203 7 ADD ° UPDATE THE INPUT NUMBER 
217 033250 004537 033122 JSR R5,CK.CHR sCHECK ONE CHARACTER 
033254 033314 BS ZILLEGAL CHARACTER 
935256 033300 5§ :CARRIAGE RETURN 
033260 033276 4$ “Pha 
033262 033270 3§ - 
033264 033234 28 :DIGIT 0-7 
053266 035254 2$ :DIGIT 8-9 . 
218 033270 105711 38: -TSTB. (RTD :DOES A "CR" FOLLOW THE "PERIOD 
219 033272 001010 BNE «8S :BR IF NOT 
220 033274 005724 TST (R4)+ ; INCREMENT THE RETURN 
221 033276 005724 4$: TST = (RGD* SINCREMENT THE RETURN 
22 033300 005704 5$: TST  — (Ra)¢ ZINCREMENT THE RETURN 
23 033502 020316 CMP RB, (SP) CHECK THE MAGNITUDE OF THE NUMBER 
224 033304 101004 BHI «9S :BR IF ENTERED NUMBER TOO LARGE 
225 033306 000402 BR 8$ :BYPASS_INCR 
226 033310 005725 6$: TST (R5)+ : INCREMENT RETURN PAST INVALID RETURN 
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227 033312 005725 7$: TST (R5)¢ s INCREMENT RETU 

228 033314 060405 8$: ADD R4 RS *SETUP RETURN URINTER 

229 033316 610302 9$: MOV R3.R2 SENTERED VALUE 

230 0 9 03726 TST (SP) + SCLEAN MAX, SIZE OFF OF STACK 

231 0 01260 MOV (SP)+,R3 SRESTORE R3 

2 : 033324 012604 MOV (SP) +.RG *RESTORE R4 

233 033326 011505 MOV (R5) RS [GET RETURN ADDRESS 

334 033330 000205 RTS RS RETURN 

236 THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 

337 i UNSIGNED DECIMAL ASCIZ NUMBER. 

239 ; mov NUMBER, -(SP) :PUT THE NUMBER ON THE STACK 

240 : PC, $SBeD CALL 

ot) 5 SPT URN SADDRESS OF THE 1ST ASCIZ CHAR IS ON THE STACK 

243 “NOTE: THE PROGRAM REQUIRES THIS FORM OF '$SB2D", NOT THE VERSION ON 

Si ; THE SYSMAC LIBRARY, REV C AND LATER 

546 033332 016637 000002 033356 $SB2D: MOV 2(SP),1$ ;SAVE THE pBINARY NUMBER 

247 033340 012746 033356 MOV #1$,-(SP) “SET THE P 

248 033344 004737 037324 JSR PC, $D0B2D [CALL THE SOUBLE LENGTH CONVERT 

249 033350 012666 000002 MOV (SP)+,2(SP) :PICKUP THE POINTER 

250 033354 000207 RTS PC SRETURN 

231 033356 000000 000000 1$: .WORD 0,0 

253 THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER 10 AN 

334 i UNSIGNED OCTAL ASCIZ NUMBER. 

256 MOV NUMBER, -(SP) :PUT THE NUMBER ON THE STACK 

257 : JSR PC,$SB20 : 

$38 : RETURN SADDRESS OF THE 1ST ASCIZ CHAR IS ON THE STACK 

260 INOTE: THE PROGRAM REQUIRES THIS FORM OF '$SB20°, NOT THE VERSION ON 

Zo} : THE SYSMAC LIBRARY, REV C AND LATER 

563 033362 016637 000002 033406 $SB20: MOV 2(SP),1$ sSAVE THE BINARY NUMBER 

264 033370 012746 033406 MOV #1$,-(SP) *SET THE POINTE 

265 033374 004737 037520 JSR Pc, $0820 ‘CALL THE DOUBLE LENGTH CONVERT 

266 033400 012666 000002 MOV (SP)+,2(SP) ‘PICKUP THE POINTER 

567 033404 000207 RTS PC RETURN 

268 033406 000000 000000 1$: .WORD 0,0 
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TTY INPUT ROUTINE 
1 .SBTTL TTY INPUT ROUTINE 
3 ~MPRRRBRALALZAAARALALELEAEEERRSEE SER EELEREERSEEELEEE ELSES E SELLER ESR 
“ENABL LSB 
033412 000000 STKCNT: .WORD 0 ; ;NUMBER OF ITEMS IN QUEUE 
033414 000000 STKQIN: .WORD 0 +: INPUI POIN TER 
033416 600000 $TKQOUT: .WORD 0 *:OUTPUT POIN 
033420 $TKOSRT: .BLKB 7 Si TTY UE YBOARD QUEUE 
033427 STKQEND=. 
EVEN 
3*TK INITIALIZE ROUTINE 
S*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
; *SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 
PeCALL: 
3 JSR PC, $TKINT 
3* RETURN 
033430 005037 033412 $TKINT: CLR STKCNT ::CLEAR COUNT OF ITEMS IN QUEUE 
033434 012737 033420 033414 MOV #STKQSRT STKOIN ::MOVE THE STARTING ADDRESS 
033442 013737 033414 033416 MOV STKQIN, $TKOCU 3;QUEUE INTO THE INPUT & OUTPUT POINTERS 
033450 012737 033500 000060 MOV #STKSRV antevec : a THE KEYBOARD VECTOR 
033456 012737 000200 000062 MOV #200, ,aaTKVEC+2 iS eR 
033464 005777 145472 TST astk 3: CLEAR BON E FLAG 
033470 012777 060100 145462 MOV #100, astKs ::ENABLE TTY KEYBOARD INTERRUPT 
033476 000207 RTS S:RETURN TO CALLER 


:*TK SERVICE ROUTINE 
s*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
:*BY te ee ch ARACTER FROM THE INPUT BUFFER AND PUTTING 


*IT IN THE QUEUE. 
tele THE CHARACTER IS A “'CONTROL-C"' (*C) STKINT IS CALLED AND 
S*UPON RETURN EXIT 1S MADE TO THE 'CONTROL=C’’ RESTART ADDRESS (CTRAP) 

033500 117746 145456 $TKSRV: MOVB a$TKB,-(SP) ser iCeye THE CHARACTER 

033504 042716 177600 BIC #*C177, (SP) t:STRIP THE JUNK 

033510 021627 000021 CMP (SP) ,#$XON t:1S ITA RANDOM XON? 

033514 001002 BNE 30$ ::BRANCH IF N 

033516 005726 TST (SP)+ +: CLEAN RANDOM XON OFF STACK 

033520 000002 RTI + :RETURN 

033522 30$: 

033522 021627 000003 CMP (SP) #3 s31S 11 A CONTROL (? 

0335¢6 001007 BNE 1$ ‘BRANCH IF N 

033530 104401 034635 TYPE ,SCNTLC *: TYPE A CONTROL=C (*C) 

033534 004737 03343 JSR PC $TKINT t:INIT THE KEYBOA RD 

033540 005726 TST (SP) + [:CLEAN UP STA 

033542 000137 034676 JMP CTRAP :: CONTROL C RESTART 

033546 021627 000007 1$: CMP (SP) #7 t:1S IT ROL G? 

033552 001004 BNE 2$ +:BRANCH IF NO 

033554 022737 000176 001154 CMP #SWREG, SWR t:1S SOFT=SWR SELECTED? 

033562 001500 BEQ 6$ +:G0 TO SWR CHANGE 

033564 2$: 

033564 022737 000007 033412 CMP #7, STKCNT r:1S THE QUEUE FULL? 

033572 001004 BNE 3$ + :BRANCH 

033574 104401 001176 TYPE »$BELL S:RING THE TTY BELL 
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033600 005726 TST (SP)+ Z:CLEAN CHARACTER OFF OF STACK 
03 602 000451 BR 5$ SHEXIT 
033604 021627 000023 3$: CMP (SP) ,#23 t:1S IT A CONTROL~S? 
033610 001021 BNE 32$ S:BRANCH IF NO 
033612 005077 145342 CLR asTKs S:DISABLE TTY oF VBOARD INTERRUPTS 
te 2h 903756 TST (SP)+ s:CLEAN CHAR 0 TACK 
033620 105777 145334 31$: TSTB asTKs s3WAIT FOR A Of HAR” 
033624 100375 BPL 31$ ::LOOP UNTIL ITS THERE 
033626 117746 145330 MOVB a$TKB,-(SP) [GET THE CHARACTE 
033632 042716 177600 BIC #°C177, (SP) S:MAKE IT 7-BIT ASCII 
033636 022627 000021 CMP (SP)+,#21 t:1S IT A CONTROL-0? 
033642 001366 BNE 31$ t:BRANCH IF NO 
033644 012777 000100 145306 MOV #100, a$TKS T:REENABLE TTY KEYBOARD INTERRUPTS 
033652 000002 RTI 3 $RETURN 
033654 005237 033412 32$: INC STKCNT [COUNT THIS CHARACTER 
033660 021627 000140 CMP (SP) #140 t:1S IT UPPER CASE? 
033664 002405 BLT 4$ ::BRANCH IF YES 
033666 021627 000175 CMP (SP), #175 t:1S IT A SPECIAL CHAR? 
033672 003002 BGT 4$ S:BRANCH IF YES 
033674 042716 000040 BIC #40, (SP) ::MAKE IT UPPER CASE 
033700 112677 177510 4$: MOVB (SP)+,a$TKQIN s3sAND PUT IT IN QUEUE 
033704 005237 033414 INC $1 ::UPDATE THE POINTER 
033710 023727 033414 033427 CMP STKQIN,#STKQEND ;;G0 OFF i — 
033716 001003 BNE 5$ ::BRANCH IF 
033720 012737 033420 033414 MOV #STKQSRT,STKQIN Hit THE POINTER 
033726 000002 5$: RTI tRETUR 
33 SRRAAAAAAAAAAAAAAAAAAAAEA AAA AAAAEAAAAEARERERARREREAARERREREE 
ee autinee puree REGISTER CHANGE ROUTINE. 
OUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
pet My THE TEST FOR CHANGE IN ofl ge SWITCH REGISTER TRAP 
> #CALL WHEN OPERATING IN TTY INTERRUPT MODE. 
033730 022737 000176 001154 $CKSWR: #SWREG, SWR 3218 THE SOF T-SWR SELECTED 
033736 001124 BNE 15 T:EXIT I 
033740 105777 145214 TSTB = @STKS t:1S A CHAR WAITING? 
033744 100121 BPL 15$ t:1F NOT, EXIT 
033746 117746 145210 MOVB  a$TKB,-(SP) YES 
033752 042716 177600 BIC #°C177, (SP) t:MAKE IT 7-BIT ASCII 
033756 021627 000007 CMP (SP) #7? 3318 IT A CONTROL~G? 
033762 001300 BNE 2$ :IF NOT, PUT IT IN THE TTY QUEUE 
* SAND Ex it 
SPARE TEAR AEAAREAAAA AEA AA AAEAAAAEAAAAAAAEAAARAARAEAKARAKEAARAEAAE 
*SCONTROL 1S PASSED TO THIS POINT FROM EITHER THE Ty INTERRUPT SERVICE 
S*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CAL RESULT OF A 
;*CONTROL=G BEING TYPED, AND THE SOFTWARE “suit REGISTER BE NG SELECTED. 
033764 123727 001150 000001 é$: CMPB = $AUTOB,, #1 ;7ARE WE RUNNING IN AUTO-MODE 
033772 001674 BEQ es + BRANCH iF YES 
033774 009788 TST (SP) a ait CONTROL=G af AL 
033776 004737 033430 JSR PC STKINT [FLUSH THE TTY INPUT QUEUE 
034002 005077 145152 CLR asixs tibTs ABLE TTY KEYBOARD INTERRUPTS 
034006 112737 000001 001151 MOVB #1, $INTAG [SET INTERRUPT MODE INDICATOR 
034014 104401 034647 TYPE »SCNTLG :7ECHO THE CONTROL=G (*G) 
034020 104401 034654 $GTSWR: TYPE SMSWR Si TYPE CURRENT CONTENTS 
034024 013746 000176 MOV SWwREG,-(SP) TISAVE SWREG FOR 
034030 104402 TYPOC 3:60 TYPE--OCTAL ASCLT TALL DIGITS) 
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TTY INPUT ROUTINE 

034032 104401 034665 TYPE  ,$MNEW s;PROMPT FOR NEW SWR 

034036 005046 19$: CLR =(SP) SICLEAR COUNTER 

034040 005046 CLR =(5P) S:THE NEW SWR 

034042 105777 145112 7$: TSTB = aS TKS SS CHAR THERE? 

034046 100375 BPL 7$ :: TF NOT TRY AGAIN 

034050 117746 145106 MOVB = ASTKB, =(SP) ::PICK UP CHAR 

034054 042716 177600 BIC #°C177, (SP) S:MAKE IT 7*BIT ASCII 

034060 021627 000003 CMP (SP) #3 ri1S IT A CONTROL-C? 

034064 001015 BNE 9$ S:BRANCH IF NOT 

034066 104401 034635 TYPE SCNTLC T:YES, ECHO CONTROL=C (*C) 

034072 062706 000006 ADD #6,SP S:CLEAN UP STACK 

034076 123727 001151 000001 CMPB SINTAG,#1 s;REENABLE TTY KEYBOARD INTERRUPTS? 

034104 901003 BNE 8$ ::BRANCH IF N 

034106 012777 000100 145044 MOV #100,a$TKS s;ALLOW TTY KEYBOARD INTERRUPTS 

034114 000137 034676 8$: JMP CTRAP SCONTROL=C RESTART 

034120 021627 000025 9$ CMP (SP) #25 sr1S IT A CONTROL-U? 

034124 001005 BNE o$ ::BRANCH IF NOT 

034126 104401 034642 TYPE  ,$CNTLU t:YES, ECHO CONTROL=U (*uU) 

034132 062706 000006 20$: ADD 6,SP [IGNORE PREVIOUS INPUT 

034136 000737 BR 19§ SILET'S TRY IT AGAIN 

034140 021627 000015 10$: CMP (SP),#15 ss1S IT A <CR>? 

034144 001022 BNE 16$ S:BRANCH IF NO 

034146 005766 000004 TST 4(SP) szVYES, IS IT THE FIRST CHAR? 

034152 001403 BEQ 11$ ::BRANCH IF YES 

034154 016677 000002 144772 MOV 2(SP) ,aSwR ::SAVE NEW SWR 

034162 062706 000006 11$: ADD #6,SP SICLEAR UP STACK 

034166 104401 001203 14%: TYPE SCRLF s;ECHO <CR> AND <LF> 

034172 123727 001151 000001 CMPB Ss SINTAG, #1 S:RE-ENABLE TTY KBD INTERRUPTS? 

034200 001003 BNE 15$ ::BRANCH IF NOT 

034202 012777 000100 144750 MOV #100, a$Tks RE-ENABLE TTY KBD INTERRUPTS 

034210 000002 15$: RTI :RETUR 

034212 004737 036064 16$: JSR PC ,STYPEC S:ECHO CHAR 

034216 021627 000060 CMP (£5) , #60 ::CHAR < 0? 

034222 002420 BLT 18% :;BRANCH IF Y 

034224 021627 000067 CMP (SP) #67 ?:CHAR > 7? 

034230 003015 BGT 1BS ::BRANCH IF YES 

034232 042726 000060 BIC #60, (SP)+ ::STRIP-OFF ASCII 

034256 005766 000002 TST ash) [:1S THIS THE FIRST CHAR 

034242 0014 BEQ 7$ S:BRANCH IF YES 

OseSee 006316 ASL (SP) szNO, SHIFT PRESENT 

034246 006316 ASL (SP) t: “CHAR OVER TO MAKE 

034250 006316 ASL (SP) +: ROOM FOR NEW ONE. 

034252 005266 000002 17$: INC 2(SP) TIKEEP COUNT OF CHAR 

034256 056616 177776 BIS -2(SP), (SP) *:SET IN NEW CH 

034262 000667 BR 7$ [:GET THE NEXT ONE 

034264 104401 001202 18%: TYPE SQUES S:TYPE 2<CR><LF 

034270 000720 R 50$ S:SIMULATE CONTROL-U 


B 
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TTY INPUT ROUTINE 


als ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


oy RDCHR ::GET A CHARACTER FROM THE QUEUE 
3* RETURN HERE SCHARACTER IS 0 TACK 
it SiWITH PARITY Bit STRIBPED OFF 
034272 011646 SRDCHR: MOV (SP) ,=(SP) ;sPUSH DOWN THE PC AND 
034274 016666 000004 000002 MOV 4(SP5,2(SP) : THE 
034302 005066 000004 CLR 4(5P) 33GET READY FOR A CHARACTER 
034306 005046 CLR -(SP) PUT NEW PS ON STACK 
034310 012746 034316 MOV #64$,-(SP) Eur NEW PC ON STACK 
034514 000902 i RTI ::POP NEW PC AND PS 
034316 005737 033412 i$: TST STKCNT y;WAIT ON A CHARACTER 
034322 001775 BEQ 1$ 
034324 005337 03341 DEC STKCNT i sDECREMENT THE COUNTER 
034330 117766 177062 000004 MOVB  a$TKQOUT,4(SP) GET ONE CHARACT ER 
034336 005237 033416 INC $TKQOUT S:UPDATE THE POINTER 
034342 023727 033416 033427 CMP STKQOUT ,#STKQEND "3ED1D IT GU OFF OF THE END? 
034350 001003 BNE $ ::BRANCH IF N 
034352 012737 033420 033416 MOV #STKOSRT,STKQOUT. :ARESET THE POINTER 
034360 000002 2s: RT : :RETURN 
FERRARA AREAAAEAAAAEE AAA AEA AA RAAAAAAEAARAAAAAAEAAAEA REHEAT AES 
gSTHIS ROUTINE WILL INPUT A STRING FROM THE TTY 
:* 3 
te RDLIN iS INPUT A STRING FROM THE T 
e RETURN HERE DDRESS OF FIRST OnANarTeR rr BE ON THE STACK 
3* 5 ORMINATOR WILL BE A BYTE OF ALL O'S 
034362 010346 SRDLIN: MOV R3,-(SP) Z:SAVE R3 
034364 005046 ; CLR -(§P) CLEAR THE RUBOUT KEY 
034366 012703 034616 1$: MOV #STTYIN,R3 7:GET ADDRESS 
034372 022703 034635 2$: CMP #STTYING15.,R3 i TBUFFER FULL? 
034376 101456 LoS ss 4$ :BR IF YES 
034400 104410 RDCHR +:G0 READ ONE CHARACTER FROM THE TTY 
034402 112613 MOVB  (SP)+, (R3) ‘:GET CHARACTER 
034404 122713 000177 10$: CMPB #177, (R3) ':1$ IT A RUBOUT 
034410 001022 BNE 5$ ::BR IF NO 
034412 005716 TST (SP) [:1S THIS THE FIRST RUBOUT? 
034414 001007 BNE 6$ 7 BR IF 
034416 112737 000134 034614 MOVB #'\,%% sz TYPE A BACK SLASH 
peeks 104491 034614 TYPE . ,9$ 
034430 012716 177777 MOV #-1, (SP) 33SET THE RUBOUT KEY 
034434 00530 6$: DEC R3 [BACKUP BY ONE 
034436 0205¢7 034616 CMP 23, #STTYIN ::STACK EMPTY? 
034442 103434 BLO 4 ::BR IF YES 
034444 111337 034614 MOVB (R398 SETUP TO TYPEOUT THE DELETED CHAR. 
034450 104401 034614 TYPE 9 TYPE 
034454 000746 BR b$ ':G0 READ ANOTHER CHAR, 
034456 005716 5$: TST (SP) ;;RUBOUT KEY SET? 
034460 001406 BEQ ? [BR IF NO 
34462 112737 000134 034614 MOVB 3s #"\,,98 ::TYPE A BACK SLASH 
034470 104401 034614 TYPE 
034474 5016 CLR (SP) ::CLEAR THE RUBOUT KEY 
034476 122713 000025 7$: (MPB #25, (R3) 3:18 CHARACTER A CTRL U? 
034502 001003 BNE 5h ::BR IF NO 
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TTY INPUT ROUTINE 


034504 104401 034642 TYPE SCNTLU :TYPE A CONTROL ‘'U"’ 
034510 900726 BR & $360 START OVER 
034512 122713 000022 8$: CMPB ss #22, (3) 1S CHARACTER AR" 
034516 001011 BNE 3$ ‘BRANCH IF NO 
034520 105013 CLRB ss (R33) CLEAR THE CHARACTER 
034522 104401 001203 TYPE »SCRLF tI TYPE A "CR" 
034526 104401 034616 TYPE $TTYIN STYPE THE INPU 1 St RING 
034532 000717 BR 4 G0 PICKUP ANOTHER CHACTER 
034534 104401 001202 4$: TYPE SQUES S:TYPE A '? 
034540 900712 BR {$ i: CLEAR THE BUFFER AND LOOP 
034542 111337 034614 3$: MOVB (R3),9$ sECHO THE CHARACTER 
034946 104401 034614 TYPE 9$ 
034552 122723 000015 CMPB ss #15, (R3)+ :CHECK FOR RETURN 
034556 001305 BNE 2$ : LOO IF NOT RETURN 
034560 105063 177777 CLRB ss = 1(R?3) CLEAR RETURN (THE 15) 
034564 104401 001204 TYPE SLF ‘TYPE A LINE FEED 
034570 005726 TST (SP) + : CLEAN RUBOUT KEY FROM THE STACK 
034572 012603 MOV (SP)+,R3 S:RESTORE R3 
034574 011646 MOV (SP) ,-(5P) i ZADJUST | THE STACK AND PUT ADDRESS OF THE 
034576 016666 000004 000002 MOY 4 (SPS ,2¢SP) $: FIRST ASCII CHARACTER ON IT 
034604 012766 034616 000004 MOV #STTYIN,4(SP) 
034612 000002 RTI p7RETU 
034614 000 9$: .BYTE 0 + OE ORAGE FOR ASCII CHAR. TO TYPE 
034615 000 .BYTE 0 iE TERM NATOR 
034616 $TTYIN: .BLKB 15. RESERVE Be BYTES FOR TTY INPUT 
034635 136 103 015 $CNTLC: .ASCIZ /4€/<15><12> i: CONTRO — 
034642 136 125 015 $CNTLU: :ASCIZ /*U/<15><12> =: CONTROL gre 
034647 136 107 015 $CNTLG: .ASCIZ /*G/<15><12>  ::CONTROL ''G 
034654 015 012 123 $MSWR: .ASCIZ <15> <12>/SuR = / 
. 024665 040 040 116 $MNEW: .ASCIZ / NEW = 
3 THIS ROUTINE WILL PROCESS THE (*C) CHARACTER 
5 034676 012737 000001 001334 CTRAP: MOV #1, CFLAG :SET THE * CONTROL C* FLAG 
6 034704 005237 053412 INC STKCNT SCOUNT THIS CHARACTER 
7 034710 112777 000015 176476 MOVB #15, a$TKQIN 3PUT "RETURN' CHARACTER IN QUEUE 
8 034716 005237 033414 INC $TKOIN UPDATE THE POINTER 
9 034722 023727 033414 033427 CMP STKQIN, #$TKQEND :60 OFF THE END ? 
10 034730 001003 BNE 1$ ‘BR IF YES 
11 034732 012737 033420 033414 MOV #STKOSRT,STKQIN :RESET THE POINTER 
12 034740 000002 1$: RTI RETURN 
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ERROR HANDLER ROUTINE 
1 .SBTTL ERROR HANDLER ROUTING 
SP RAAAA AAR AARAA RAE RA AAA RETE AAA AAAAAAHEAAAAAHEAAAAAEHRERAAAHeARe Ee 
S*®THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
[*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
3*AND GO TO SERRTYP ON ERROR 
:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
3*SWi5=1 HALT ON 
eSW13=1 INHIBIT ERROR TYPEOUTS 
ye BELL ON ERROR 
ie ERROR N s;ERROR=EMT AND N=ERROR ITEM NUMBER 
034742 105037 035330 SERROR: CLRB  _—sCXIBSAVE s:CLEAR THE ITEM BYTE SAVE LOCATION 
034746 104407 CKSWR :: TEST FOR CHANGE IN SOFT-SWR 
034750 010337 001316 MOV R3, ATTN :SAVE THE ATTENTION REGISTER CONTENTS 
034754 010137 001320 MOV R17. DRVNO ‘DRIVE NUMBER 
034760 032777 020000 144166 BIT #SW13,aSWR : INHIBIT PRINTOUTS ? 
034766 001004 BNE +12 °BR IF YES 
034770 104401 001203 TYPE  ,$CRLF CRLF 
034774 104401 001203 TYPE > $CRLF CRLF 
035000 004737 026146 JSR PC, STIME : TYPE ELAPSED TIME 
035004 105237 001117 7$: INCB = SERFLG ':SET THE ERROR FLAG 
035010 001775 BEG 7$ ::DON'T LET THE FLAG GO TO ZERO 
035012 013777 001116 144136 MOV STSTNM,@DISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG 
035020 032777 002000 144126 BIT #B1T10.aSWR S:BELL ON ERROR? 
035026 001402 BEQ 1$ ::NO = SKIP 
035030 104401 001176 TYPE $BELL SIRING BELL 
035034 005237 001126 1$: INC $ERTTL [COUNT THE NUMBER OF ERRORS 
035040 011637 001132 MOV (SP), SERRPC TIGET ADDRESS OF ERRLR INSTRUCTION 
035044 162737 000002 001132 SUB #2, SERRPC 
035052 117737 144054 001130 MOVB aSERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
035060 632777 001000 144066 BIT #B1T09, aSwR ::SEE IF LOOP ON ERROR IS SET 
035066 001060 BNE 1004$ $:BRANCH AROUND ROUTINE IF SO 
035070 122737 000177 001130 CMPBSs#'177, SITEMB [:SEE IF THIS IS THE POWER FAIL CALL 
035076 001454 BEOQ 1004$ [BRANCH AROUND ROUTINE IF IT 
035100 105737 035330 TSTB  — IBSAVE [:SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE 
035104 001047 BNE 1003$ ::BRANCH IF SO 
035106 022737 177777 035326 CMP #-1,CPSAVE [:SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
035114 001445 BEO 1004$ ::BRANCH IF S 
035116 013746 000004 MOV ERRVEC,-(SP) | 3:SAVE CONTENTS OF ERROR VECTOR 
035122 012737 035140 000004 MOV #1000$.ERRVEC ::SETUP ‘TRAP’ RETURN ADDRESS 
035130 013737 177766 035326 MOV 177756, CPSAVE ::MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 
035136 900406 BR 1001$ 
035140 012737 177777 035326 1000$: MOV #-1, CPSAVE ::SET CPU ERROR REGISTER TIMEOUT INDICATOR 
035146 012716 035154 MOV #1061$, (SP) ?:SETUP RETURN ADDRESS 
035152 900002 RTI 
035154 012637 000004 1001$: MOV (SP)*,ERRVEC  ;;RESTORE CONTENTS OF ERROR VECTOR 
035160 022737 177777 035326 1002$: CMP #-1, CPSAVE ::SEE If CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
035166 901420 BEO 1004$ ::BRANCH IF SO 
035170 032737 000001 035326 BIT #BITOO,CPSAVE ::SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG 
035176 001414 BEQ 1004 S:BRANCH IF OK 
035200 0407 7 900001 177766 BIC #B1T00,177766 3:CLEAR THE BIT FOUND SET 
035206 113737 0011 9 0353 0 MOVB Si TENE IBSAVE ::MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL 
035214 112737 000177 001130 MOVB «#177, SLTEMB 7:SET SITEMB TO SPECIAL POWER FAIL POINTER 
035222 000402 BR A$ T:BRANCH OVER IBSAVE CLEARING 
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ERROR HANDLER ROUTINE 


033586 105037 035330 10038: CLRB ~—s IBSAVE s:CLEAR IBSAVE SO 2ND TIME THROUGH EXITS 
035230 032777 020000 143716 BIT #B1T13,aSWR ii SKIP TyPEOUT IF SET 

035236 001004 BNE 20$ + SKIP uT 

035240 004737 03533 JSR PC, ,SERRTYP 3360 10. USER ERROR ROUTINE 

035 44 104401 00120 — TYPE »SCRLF 

035250 122737 000001 001226 CMPB = #APTENV,SENV —s; sRUNNING IN APT MODE 

035256 001007 BNE 33 SKIP APT ERROR REPORT 

035260 113737 001130 035272 MOVB SITEMB. 218 ::SEf ITEM NUMBER AS ERROR {NUMBER 

035266 004737 036676 JSR PC, SAT szREPORT FATAL ERROR TO A 

035 re 900 21$: .BYTE 0 

03527 000 "BYTE 0 

035274 000777 22$: BR 22$ s2APT ERROR LOOP 

035¢76 105737 035330 2$: TSTB —s«IBSAVE SEE IF IBSAVE Is bon DED 

035302 001005 BNE 3$ + : BRANCH IF O HALT ON PWR MON BIT ERROR 
035304 005777 143644 TST aswR szHALT ERROR 

035310 100002 BPL 3$ [:SKIP IF CONTINUE 

035312 000000 HALT S:HALT ON ERROR! 

Oe2tle 104407 35 CKSWR szTEST FOR CHANGE IN SOF T=SWR 

035316 105737 035330 1STB —s«IBSAVE :;SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL 
035322 001230 BNE 7$ ;;BRANCH BACK TO CALL ORIGINAL ERROR 
035324 000002 RTI + :RETURN 

035326 000000 CPSAVE: .WORD 0 s:LOCATION TO SAVE CPU ERROR REG CONTENTS 
035330 000000 IBSAVE: .WORD 0 ;;LOCATION TO SAVE ITEM BYTE 
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54 


WAWAA 
SOONOAOOM 
FOoOroon 


moO 


FSERNSNSERR 


104401 
010046 
005000 
153700 
001904 
013746 


104402 
000437 


000207 
013046 


035650 


001203 
001130 
001132 


000177 


001212 
035510 


035650 


001203 


001203 


035504 
040 000 

035608 035634 
11 127 
105 

001132 035326 


-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


Fh tial alalieDadiaa Radiata tata a tata taieRatatataDatatalatatateateialatataletaleRaletatatetetatatatatalaletaiaiatataiatelateletatel 


:STHIS ROUTINE USES, THE ““ITEM CONTROL BYTE*’ (SITEMB) TO 4 a by WHICH 
;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 


1000$: 


1001$: 


PFECH2: 
PFECHS: 


R 
“Astle 


: prem PFECH2,PFEC 
: 12° ?POWER MONITOR B 


ASC 
SASCIZ 
-EVEN 
- WORD 


REPORTED. IT THEN 


SCRLF 
RO. -(SP) 


SAS1TEMB,RO 
1$ 


SERRPC ,=(SP) 


6$ 

#177,R0 

1000 
STESTN,PFTSTN 
#PFECH,RO 

RO 

RO 

RO 


RO 
#SERRTB,.RO 
(RO)+ 28 


a(RO)+,-(SP) 
(RO) 

$ 

8$ 

$. 

s € 


OBTAINS, FROM T 


HE ‘’ERROR 


TABLE’’ (SERRTB), 


zi"'CARRIAGE RETURN’ & "‘LINE FEED*’ 


77 SAVE 
:z;PICKUP THE ITEM 
Ht tA ITEM NUMBER I 


INDEX 
S he JUST 


3 TYPE THE PC OF THE E 


3sSAVE SERRPC FOR 
44 hy OR ADDR 


OP eae ASCIICALL DIGITS) 
ZISEE a ag # — CALL IS SPECIAL POWER FAIL CALL 


; F WUMBER 
: IMOVE POWER ey CALL TABLE TO RO 


;;BRANCH TO CAL 


;sADJUST THE INDEX SO THAT IT WILL 


$3 WORK FOR T 
37FORM TABLE 4 pe 
s:PICKUP ‘ERROR ME 
7 :SKIP TYPEQUT™ IF 

s TYPE THE ‘ERROR 
77""ERROR MESSAGE" 
BN Fatt ee RETU 
s:SKIP TYPEOU 

7: TYPE THE ‘ 
CARRIAGE HEADER’ ad | 


‘CARRIAGE RETURN 


IN 
:PICKUP ee ee POINTER 


is 60. TYPE TH 


TYPEOUT 


HE ERROR TABLE 
ER 

aoe POINTER 
NO POINTER 


R GOES HER 
FEED 


RESTORE RO 
: CARRIAGE RETURN’ & “LINE FEED" 


: 3s SAVE a(RO)+ FOR 


TYPE@-OCTAL Sekt DIGITS) 


3318 oo ANOTHER 
S:TYPE TWO(2) SPAC 
;;LOOP 

3; 1wO(2) SPACES 


H3 recs ih’ eoare DEFINI 


N CPU ERROR RE 


HTESINO ERR Pc TT PUERR EG? 
PFTSTN, SERRPC ,CPSAVE ,0 


TYPEOUT 


NUMBER? 

ES 

NG TABLES BELOW 
GISTER FOUND SE? 


SEQ 0161 
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ERROR MESSAGE TYPEOUT ROUTINE 


035644 000 000 000 phere BY 


035650 000000 0,0,0,0 


TE 
STN: .WORD 0 3;CONTAINS TEST NUMBER FOR PF BIT ERROR 


H 1 
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TYPE ROUTINE 


-SBTTL TYPE ROUTINE 


=MWERARBRARARAARRAARALAAAARAALALAAAAAAA LALA EAL ARERR RRR RAA LARA SARA AE SS 


s*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
:*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
S*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
S*NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
; *NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
s*CALL: 
:*#1) USING A TRAP INSTRUCTION 
a TYPE »MESADR ::MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
3* TYPE 
3* MESADR 
,e 
035652 105737 001173 $TYPE: TSTB $TPFLG rz1S THERE A TERMINAL? 
035656 100002 BPL 1$ 7:BR IF YES 
035660 000000 HALT S:HALT HERE IF NO TERMINAL 
035662 000430 BR 3$ S LEAVE 
035664 010046 1$: MOV RO,-(SP) [SAVE RO 
035666 017600 000002 MOV a2(SP) ,RO [:GET ADDRESS OF ASCIZ STRING 
035672 122737 000001 001226 CMPB #APTENV,SENV ;;RUNNING IN APT MOD 
035700 001011 BNE 62$ ::NO,GO CHECK FOR APT CONSOLE 
035702 132737 000100 001227 BITB $#APTSPOOL,SENVM ::SPOOL MESSAGE TO APT 
035710 001405 BEO 62$ ::NO,GO CHECK FOR CONSOLE 
035712 010037 035722 MOV RO,61$ ::SETUP MESSAGE ADDRESS FOR APT 
035716 004737 036666 JSR PC.SATY3 ::SPOOL MESSAGE TO APT 
035722 000000 61$: . WORD S:MESSAGE ADDRESS 
035724 132737 000040 001227 62$: BITB $#APTCSUP,SENVM ::APT CONSOLE SUPPRESSED 
035732 001003 BNE 60$ S:YES,SKIP TYPE OUT 
035734 112046 2s: MOVB (RO)+,=(SP) [:PUSH CHARACTER TO BE TYPED ONTO STACK 
035736 001005 BNE 4$ [:BR IF IT ISN'T THE TERMINATOR 
035740 005726 TST (SP)+ tf TERMINATOR POP IT OFF THE STACK 
035742 012600 60$: MOV (SP)+,RO s:RESTORE RO 
035744 062716 000002 3$: ADD #2, (SP) :: ADJUST RETURN PC 
035750 000002 RTI + "RETURN 
035752 122716 000011 4$: CMPB Ss #HIT, (SP) +;BRANCH IF <HT> 
035756 001430 BEQ 
035760 122716 000200 C(MPB ss @ CRLF, (SP) :;BRANCH IF NOT <CRLF> 
035764 001006 BNE 
035766 005726 TST (SP)¢ ::POP <CR><LF> EQUIV 
935770 104401 TYPE :: TYPE A CR AND LF 
035772 901203 SCRLF 
035774 105037 036202 CLRB $CHARCNT s:CLEAR CHARACTER COUNT 
036000 000755 BR $ *:GET NEXT CHARACTER . 
036002 004737 0.6064 5$: JSR PC ,STYPEC ':GO0 TYPE THIS CHARACTER 
036006 123726 001172 6$: CMPB ss SFALLC,(SP)* 3:18 IT TIME FOR FILLER CHARS.? 
036012 001350 BNE ::1F NO GO GET NEXT CHAR. 
036014 013746 001170 MOV SNULL ,=(3P) [:GET # OF FILLER CHARS. NEEDED 
s:AND THE NULL CHAR. 
036020 105366 000001 7$: DECB—s«AC SP) ::DOES A NULL NEED TO BE TYPED? 
036024 002770 BLT 6$ t:BR IF NO--GO POP THE NULL OFF OF STACK 
036026 004737 036064 JSR PC ,STYPEC 7:60 TYPE A NULL 
036032 105337 036202 DECB  $CHARCNT +:D0 NOT COUNT AS A COUNT 
036036 000770 BK 7$ 3;LO0P 
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TYPE ROUTINE 


sHORIZONTAL TAB PROCESSOR 


036040 112716 000040 8$: MOVB (SP) i :REPLACE TAB WITH SPACE 
036044 004737 036064 9$: JSR eC, $TYPEC S:TYPE A SPACE 

036050 132737 000007 036202 BITS #7. $CHARCNT i SBRANCH IF NOT AT 

036056 001372 BNE 98° :TAB STOP 

036060 005726 TST (SP)+ [POP SPACE OFF STACK 

036062 000724 BR 2$ +:GET NEXT CHARACTER 

036064 STYPEC: 

036064 105777 143070 TSTB = ASTKS ;3CHAR IN KYBD BUFFER? 
036070 100022 BPL 10$ 33BR IF NOT 

036072 017746 163064 MOV asTkB,-(SP) [GET CHA 

036076 042716 177600 BIC #177600, (SP) t:STRIP EXTRANEOUS BITS 
036102 122716 000023 CMPB ss #SXOFF, (SP) SIWAS CHAR X 

036106 001012 BNE 102$ tiBR IF Note. 

036110 101$: 

036110 105777 143044 STB = @STKS s;WAIT FOR CHAR 

036114 100375 BPL 101$ 

036116 117716 143040 MOVB a$TKB, (SP) ::GET CHAR 

036122 042716 177600 BIC #177660,(SP)  ::STRIP IT 

036126 122716 000021 CMPB Ss #$XON, (SP) S:WAS IT XON? 

036132 001366 BNE 101$ [:BR IF NOT 

036134 102$: 

036134 005726 TST (SP)+ riF IX STACK 

036136 10$: 

036136 105777 143022 TSTB = @STPS ;;WAIT UNTIL PRINTER IS READY 
036142 100375 BPL 10$ 

036144 116677 000002 143014 MOVB  2(SP),a$TPB ::LOAD CHAR TO BE TYPED INTO DATA REG. 
036152 122766 000015 000002 CMPB —s- @CR, 2¢ SP) ':IS CHARACTER A CARRIAGE RETURN? 
036160 001003 BNE 1$ i }BRAN CH IF NO 

036162 105037 036202 CLRB SCHARCNT es YES--CLEAR CHARACTER COUNT 
036166 000406 BR STYPEX EXIT 

036170 122766 000012 000002 1$: CMPB ML, 2 SP) t:1S CHARACTER A LINE FEED? 
036176 001402 BEQ STYPEX ::BRANCH IF YES 

036200 105227 INCB ss (PC) + S:COUNT THE CHARACTER 

036202 000000 SCHARCNT:.WORD 0 >: CHARACTER COUNT STORAGE 
036204 000207 STYPEX: RTS PC 
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-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


ppeeeeeeneeereeerererereerereeeeeeeeneenetereneteneteenteeeneees 

:®THIS ROUTINE IS USED io CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
;#OCTAL (ASCI1) NUMBER AND TYPE IT. 

*$T aan catinas HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


ec 
3* MOV NUM, =(SP) HCA TO . TYPED 
3* -BYTE oN :iN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
3* -BYTE 8 =} OR 
3* =TYPE LEADING ZEROS 
Oe ot SUPPRESS LEADING ZEROS 
eerie om fiaha HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
Bb OR $TYPOC 
3* MOV NUM,=(SP) s NUMBER TO BE TYPED 
:* TYPON ::CALL FOR TYPEOUT 
i$1YPOC~--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
*® 
ie MOV NUM, =-(SP) : NUMBER TO BE TYPED 
3t TYPOC s:CALL FOR TYPEOUT 
036206 017646 000000 $TYPOS: MOV a(SP) ,-(SP) s:PICKUP THE MOD 
036212 116637 000001 036431 MOVB 1(SP) ,SOFILL 3;LOAD ZERO FILL SWITCH 
036220 112637 036433 MOVB (SP)+,S$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 
036224 062716 000002 ADD #2,(SP) s;ADJUST RETURN ADDRESS 
036230 000406 BR STYPON 
036232 112737 000001 036431 $TYPOC: MOVB #1,S0F ILL 33SeT THe ZERO FILL SWITCH 
036240 112757 000006 036433 MOVB #6,S0MODE +1 ¢eSeT FOR SIX(6) DIGITS 
036246 112737 000005 036430 S$TYPON: MOV3 #5,S0CNT sSET THE ITERATION COUNT 
036254 010346 MOV R3,-(SP) S:SAVE R R3 
036256 010446 MOV R4,-(SP) s7SAVE R4 
036260 010546 MOV R5,-(SP) 3: SAVE RS 
036262 113704 036433 MOVB SOMODE +1,R4 ::GET THE NUMBER OF DIGITS TO TYPE 
036266 005404 NEG . R4 
036270 062704 000006 ADD #6,R4 sseyormes’ it FOR MAX. ALLOWED 
036274 110437 036432 MOVB R4, SOMODE pove IT FOR USE 
036300 113704 036431 MOVB SOFILL,R4 tIGET THE PERO FILL SWITCH 
036304 016605 000012 MOV 12(SP), :;PICKUP THE INPUT NUMBER 
036310 005003 CLR R3 7:CLEAR THE OUTPUT WO 
936512 006105 1$: ROL RS :;ROTATE MSB INTO ‘'C 
036214 000404 BR 3$ 3:60 DO MSB 
036316 006105 2$: ROL R5 :3FORM THIS DIGIT 
036320 006105 ROL RS 
036322 006105 ROL R5 
036324 010503 MOV R5,R3 
030366 906103 3$: ROL R3 3:GET LSB OF THIS DIGIT 
036330 105337 036432 DECB SOMODE sz TYPE THIS DIGIT? 
036334 100016 BPL 7$ ::BR IF NO 
036378 Os op3 177770 BIC #177770,R3 3:GET RID OF JUNK 
03634 01002 BNE 4$ sz: TEST FOR 
036344 005704 TST RG 3 3 SUPORE SS THIS 0? 
036346 001403 BEQ 5$ 33BR IF YES 
036350 005204 4$: INC R4 : DON'T SUPPRESS ANYMORE 0°S 


SEQ 0166 
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ERF EX 
BINARY TO OCTAL (ASCII) AND TYPE 
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ae 
4 
<= 
®@ 9 
uw 
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> <= ~ od 
a 2 _ w 
<= — [. 4 -—-> a 
w ° P=) —O oe 
— 2 - oe - 
— ne w — 
wet — e awa oOo 
” a Oo Qw = 
Le oe [aiken a — > 
o oOo Oo -—a& oO ——Z2IrWY 
—-20— 2a Oo u ve oder, 
—-—- 2a oan nrcor- 
ou oOo aw =< Zou 
“=O < vw uu. 32 
ao lU€}le -—-o < ce K-vaQ 
—— TK ww AA oa- 
Ye &§- ea2adtwecacnw wOVU s&h 
Sve >+OOwTt —— IO 
ZMOwOEO www wito- 
—aqtua w @aQeaeaert 20 rays 4 
reuuGZoooor- cates ws 
WwW Ze DOP 2a2&=atowm 
“=uwo> 25 Y nNWMNRK KF OCeKace 
<< fqoocac 2Owwww wrewews> 
Znr-om]a 
° oe 86 ce 
° cecece 


6$ 
8$: 


0 
0 
6 
6 
0 
eG 000002 000004 


MIO FP VT TUT is lolel=) 
DomMomaoorOoO ol dt He Lololo) 
EMT TOUrR OOONMODOCOCoO 
NNO TMMAIMONCIN ONO 
WWM COCCCS8 KK -—-—- oO 
ee ed od ed lol ole lololololo) 


000 


036432 000000 


wooooovonoov0ds 
PYatwalyalwal sal sal sal val sal 
fololeoleleolololol =) 


03 
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EX 
CONVERT BINARY TO DE 


036434 


So 

3 

o 

Oo 
oo-oSo—-00—-90—-CO0COCooO 


COO $0 |] |0]$00 2 2 ao oa 
MNMOAUININMYUINIVIOAMUOOCOCOO 


oocosscsoscsssssssssss 
ao 


50 


on™s 


See REE REE REE eS 
aRnosoor oOo = 


a 


E 
C 


SONNONSOSNMUN-O 
SOON OCOCCOOCOL LL LSS 


PRINIA NOWNIN ANA NANNIES RIND UNE TA AAAAO 
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-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


000055 


036650 
000040 


036640 


000001 
000060 
000040 


000010 


177777 


000001 


177777 


177776 


s PARRA ARAAARAAAAAE KER AAA AEA AA EAA AAAAAAAAAKAAAAAREAATERERAARAERAE Ee 


TATHIS ROUTINE IS USED TO CHANGE A 16-BIT et NUMBER TO A IT 
i*SIGNED 1S POSITIVE OR N NUMBER AND TYPE IT hg ta ty ty WHETHER THE 


3*BEFORE THE FIRST DIGIT 
: sREPLACED WITH SPACES. 


3* MOV 
3* TYPDS 


STYPDS: 


bad 
Ae 
@o 


B 
8$: TSTB 


9$: CLRB 


NUM,=(SP) 


SP) ,-2(R3) 


vvv0 UW 


) 

»+,R5 
)+,R3 
)+,R2 
d+,R1 


we eAt ty E A SPACE OR A IGN 
OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


;;PUT_ THE BINARY NUMBER ON THE STACK 


3:60 TO THE ROUTINE 


33;PUSH RO ON STACK 
3;PUSH R1 ON STACK 
33PUSH R2 ON STACK 
::PUSH R3 ON STACK 
77PUSH RS ON STACK 
33;SET BLANK SW 

3:GET THE INPU 

3;BR IF INPUT is\P 
szMAKE THE BIN 
3:MAKE THE ASC 
33;ZERO THE CON 
3;SETUP THE RST CHA P 
;;CLEAR THE BCD N 
3:GET TH ONS TAN u" 
te a BCD DIGIT 


DON 
:ZINCREASE THE BCD DIGIT BY 1 
+ sADD BACK THE CONSTANT 


CHECK IF BCD DIGIT= 
i FEAL THROUGH 


7:POP STACK IN 
3;POP STACK IN 


IF 0 
gest ith ti LEADING 0°S? 


SEQ 0167 


Mm 13 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
036620 012600 MO (SP)+,R0 33POP STACK_INTO RO 
036622 104401 036650 TYPE $DBLK ;;NOW TYPE THE NUMBER 
036626 016666 000002 000004 MOV 2(SP) ,4(SP) ;;ADJUST THE STACK 
036634 012616 MOV (SP)+, (SP) 
036636 000002 RTI ;:RETURN TO USER 
036640 023420 $DTBL: 10000. 
036642 001750 1000. 
036644 000144 100. 
036646 000012 10. 
036650 $DBLK: .BLKW 4 


N 1 
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APT COMMUNICATIONS ROUTINE 


-SBTTL APT COMMUNICATIONS ROUTINE 


=MPABRBRBARAAAARA AAA AALAAAALARAALALALAALALASAL EAA A RAS ERE RRR ALARA RES SO 


036660 112737 000001 037124 $ATv1: MOVB. #t »SFFLG ::T0 REPORT FATAL ERROR 
036666 112732 000001 037122 $aTY3: Move “| ;SHFLG ':T0 TYPE A MESSAGE 
036676 112737 000001 037124 SAT YG: MOVB #1, SFFLG ::TO ONLY REPORT FATAL ERROR 
036704 010046 MOV RO,-(SP) i BUSH RO ON STACK 
036706 010146 MOV R1.=(SP) t:PUSH R1 ON STA 
036710 105737 037122 TSTB = SMFLG | SHOULD TYPE A MESSAGE? 
036714 991450 BEQ $ F NCT: 
036716 122737 000001 001226 CMPB Ss MAP TEN, SENV ; ;OPERATING UNDER APT? 
036724 001031 BNE F NOT: BR 
036726 132737 000100 001227 BITB #APTSPOOL,SENVM i; SHOULD SPOOL MESSAGES? 
036734 001425 BEQ F NOT: BR 
036736 017600 000004 MOV a4(SP),RO SIGET MESSAGE ADDR 
036742 062766 000002 000004 ADD #2,4(SP) >BUMP RETURN ADDR. 
036750 005737 001206 1$: TST SMSGTYPE 33SEE IF * DONE w/ LAST XMISSION? 
036754 001375 BNE 1$ tIF NOT: WAIT 
036756 010037 001222 MOV RO, $MSGAD PUT ADDR IN MAILBOX 
036762 105720 2s: TSTB sss (RO) + [FIND END OF MESSAGE 
036764 001376 BNE 2$ 
036766 163700 00122¢ SUB $MSGAD,RO 33SUB START OF MESSAGE 
036772 006200 ASR RO i3GET MESSAGE LNG" 4 IN WORDS 
36774 010037 001226 MOV RO, $MSGLGT PUT LENGTH IN MAILBOX 

037000 012737 000004 006:206 MOV #4. SMSGTYPE aH L APT TO TAKE MSG. 
037006 000413 BR & 
037010 017637 000004 037034 3S: MOV a4(SP),4$ ;3PUT MSG ADDR IN JSR LINKAGE 
037016 062766 000002 000004 ADD #2,4(SP) - BUM RETURN ADDRESS 
037024 013746 177776 MOV 177776, -(SP) > :PUSH 1968 ON STA 
037030 004737 035652 JSR PC,STYPE s:CALL TYPE MACRO 
037034 000000 4$: wOoRD 0 
037036 105737 037124 10$: TSTB SFFLG 3;;SHOULD REPORT FATAL ERROR? 
937042 001416 BEQ 12$ ::1F NOT: 
037044 005737 001226 TST SENV ;3RUNNING UNDER APT? 
037050 001413 BEQ 12$ TIF ON 
037052 005737 001206 11$: TST SMSGTYPE 3 FINISHED LAST MESSAGE? 
037056 001375 BNE 11$ OT: WAIT 
037060 017637 000004 001210 MOV B4(SP),S$FATAL  ::GET ERROR 
037066 062766 000002 000004 ADD #2,4(SP) - BU np RETURN ADDR. 
037074 005237 001206 INC SMSGTYPE t TELL at 19 TAKE ERR 
037100 105037 037124 12$: CLRB ss SFFLG T:CLEAR FATA 
037104 105037 037123 CLRB Ss SLFLG [CLEAR LOG F 
037110 105037 037122 CLRB ss $MFLG Z3CLEAR MESSAGE FLAG 
037114 $1560) MOV (SP)¢,R1 sPOP STACK INTO R 
037116 012600 MOV (SP)+-RO 3 :POP STACK INTO RO 
037120 000207 RIS PC RETURN 
0371 é 000 SMFLG: .BYTE 0 i ME SSG. FLAG 
03712 000 $LFLG: .BYTE 0 [LOG FLAG 
037124 000 SFFLG: “BYTE 0 SIFATAL FLAG 

000200 APTSIZE = 0 

000001 APTENV = 201 

000100 APTSPOOL= 100 

000040 APTCSUP = 040 
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RANDOM NUMBER GENERATGR ROUTINE 


-SBTTL RANDOM NUMBER GENERATOR ROUTINE 


FRRAAAERARAAARAAAEAREARAAEE AERA ARAAAAAAREAAAARERRAARAAEEAAEARRAAREES 


TRTHIS ROUTINE IS A DOUBLE en PSEUDO RANDOM NUMBER GENERATOR 
seul TH A RANGE OF 0 TO 2(+33)- 


3*CAL 
se " JSR PC, SRAND ec CAtt THE ROUTINE 
‘De RETUR 3 ;RETURN HERE THE RANDOM 
3% ; NUMBER WILL BE IN 
7* 3; $HINUM,$LONUM 
O37 156 SRAND: 
037126 010046 MOV RO,=(SP) ;3PUSH RO ON STACK 
037130 010146 MOV R1,-(SP) 33PUSH R1 ON STACK 
037132 010246 MOV R2,-(SP) 33PUSH R2 ON STACK 
037134 013700 037226 MOV SLONUM,RO 33SET RO WITH LOW 
037140 013701 037224 MOV SHINUM,R1 33SET R1 WITH HIGH 
037144 012702 177771 MOV #-7,R2 33SET SHIFT COUNT 
037150 006300 18: ASL RO SHIFT RO LEFT AND 
037152 006101 ROL R1 3;ROTATE CARRY INTO R1 AND 
037154 603608 INC R2 CHECK FOR DON 
037156 001374 BNE 1$ :;CONTINUE SHIFT LOOP 
037160 053700 037226 ADD SLONUM , 20 33;ADD NUMBER TO MAKE X 129 
037164 005501 ADC R1 i: PROPOGAT E_CARRY 
037166 063701 037224 ADD SHINUM,R1 ;;ADD NUMBER TO — X 129 
037172 062700 001057 ADD #1057,R0 13h LOW CONSTANT 
037176 005501 ADC R ee oo tere CARRY 
037200 062701 047401 ADD #47401,R1 ADD HIGH CONSTANT 
037204 010037 037226 MOV RO,SLONUM ::SAVE RO 
037210 010137 037224 MOV R1,SHINUM 33 R1 
037214 012602 MOV (SP)+,R2 i POP STACK INTO R2 
037216 012601 MOV (SP)+,R1 P STACK INTO R1 
037220 012600 MOV (SP)+,RO : pop STACK INTO RO 
037222 000207 RTS PC ; RETURN 
037224 176543 SHINUM: .WORD 176543 
037226 123456 SLONUM: .WORD 123456 
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SAVE AND RESTORE RO=R5 ROUTINES 


~SBTTL SAVE AND RESTORE RO-R5 ROUTINES 
PUAAeeeeeeeneereeeereeeLeeeeeeeKeHAKeeKeeeReKeKeeeeeeeeReeeeeee 
fet RO-R5 


i) SAVREG 
;*UPON RETURN FROM $SAVREG THE STAC® WILL LOOK LIKE: 


;* 

3 *TOP---(+16) 

3 we +2=-<2<(+18) 

3% +honnR5 

;* +6---R4 

;* +B---R3 

3%4+10---R2 

341 2---R1 

3#+14---R0 
037230 SSAVREG: 
037230 010046 MOV RO,=-(SP) 33PUSH RO ON STACK 
037232 010146 MOV R1,-(SP) 3;PUSH R1 ON STACK 
037234 010246 MOV R2,~(SP) 33PUSH R2 ON STACK 
037236 010346 MOV R3,-(SP) 33PUSH R3 ON STACK 
037240 010446 MOV R4,-(SP) 33 R4 ON STACK 
037242 010546 MOV R5,-(SP) 33PUSH R5 ON STACK 
037244 016646 000022 MOV 22(SP),=-(SP) 7:SAVE PS OF MAIN FLOW 
037250 016646 000022 MOV 22(SP),-(SP) 33;SAVE PC OF MAIN FLOW 
037254 016646 000022 MOV 22(SP),=(SP) 7sSAVE PS OF CALL 
037260 016646 000022 MOV 22(SP) ,-(SP) 33SAVE PC OF CALL 
037264 000002 RTI 

s*RESTORE RO-R5 

3*CALL: 

; RESREG 
037266 $RESREG: 
037266 012666 000022 MOV (SP)+,22(SP) ssRESTORE PC OF CALL 
037272 012666 000022 MOV (SP)+,22(SP) ssRESTORE PS OF CALL 
037276 012666 000022 MOV tA PRTS HE g 3sRESTORE PC OF MAIN FLOW 
037302 012666 000022 MOV (SP)+,22(SP) ;;RESTORE PS OF MAIN FLOW 
037306 012605 MOV (SP)+,R5 3;POP STACK INTO R5 
037310 012604 MOV (SP)+,R4 3zPOP STACK INTO R4 
037312 012603 MOV (SP)+,R3 ee STACK INTO R3 
037314 012602 MOV (SP)+,R2 33;POP STACK INTO R2 
037316 012601 MOV (SP)+,R1 33POP STACK INTO R1 
937320 012600 MOV (SP)+,RO 33POP STACK INTO RO 
037322 000002 RT] 
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CONVERT ROUTINE 


~SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


oo REAR ARAAAAAAAEAEAAE EAE AERA E EEE AAAAAREEHRERAAREEEHAAEREREARRAREEEe 


s*THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
s*DECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 
ST tahehit 


CZRJOAO RPO? PERF EXER MACRO V04.00 1 
DOUBLE LENGTH BINARY TO DECIMAL ASCI] 


ie MOV #PNTR,-(SP) ;:POINTER TO LOW WORD OF BINARY NUMBER 
3* JSR PC, aw$DB2D 
te RETURN sTHE FIRST ADDRESS OF ASCIZ 
t:1S ON THE STACK 
037326 104412 $DB2D: SAVREG Z7SAVE REGISTERS 
037326 016602 000002 MOV 2(SP),R2 ;3PICKUP THE DATA POINTER 
037332 012700 037504 MOV #SDECVL,RO S:GET ADDRESS OF "SDECVL'' STRING 
037336 010066 000002 MOV RO, 2(SP) 7:PUT ADDRESS OF ASCIZ STRING ON STACK 
037342 012201 MOV (Re + RI 7;PICKUP THE BINARY NUMBER 
037344 012202 MOV (R2)#.R2 
037346 012737 000012 037422 MOV #10.,4$ 7;SET UP TO DO 10 CONVERSIONS 
037354 012704 037434 MOV WSTNPWR RG ::ADDRESS OF TEN POWER 
037360 012705 037436 MOV #STNPWR42,R5 
037364 005003 1$: CLR R 3: CLEAR PARTIAL 
037366 161401 2$: SUB (R4),R1 ::SUBTRACT TEN POWER 
037370 005602 SBC 
037372 161502 SUB (R5) ,R2 
037374 90240¢ BLT 3$ ::BR IF TEN POWER TO LARGE 
037376 00520 INC R3 [:ADD 1 TO PARTIAL 
037400 000772 BR 23 7:10 
037402 062401 3$: ADD (R4)+,R1 S:RESTORE SUBTRACTED VALUE 
037404 005502 ADC R2 
037406 062402 ADD (R4)+,R2 
037410 022525 CMP (R5)#.(R5)+ z:MOVE TO NEXT TEN POWER 
037412 052703 000060 BIS #'0,R3 t:CHANGE PARTIAL TO ASCII 
037416 110320 MOVB R3,(RO)+ z7SAVE IT 
037420 005327 DEC (PC)+ + DONE? 
037422 000000 4$: .WORD 0 
037424 001357 BNE 1$ ::BR IF 
037426 105020 CLRB ROD+ +: TERMINATOR 
037430 104413 RESREG T:RESTORE REGISTERS 
037432 900207 RTS PC + :RETURN 
037434 145000 STNPWR: 145000 3:1.0E09 
037436 035632 35632 
037440 160400 160400 721.0608 
037442 004765 2765 
037444 113200 113200 321.0607 
037446 000230 230 
037450 041100 041100 321.0606 
037452 000017 17 
9376454 103240 103240 221.0605 
037456 990001 1 
037460 0234 0 23420 321.0604 
037464 thats 1750 321.0603 
037466 000000 0 
037470 000144 144 321.002 
037472 000000 0 
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DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 

037474 000012 12 331.0601 

037476 000000 0 

037500 000001 1 331.0€00 

037502 000000 0 

037504 SDECVL: .BLKB 12. ssRESERVE STORAGE FOR ASCIZ STRING 
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DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 


~-SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 


sRATRAARAAAAAAAAEAAA THEATER EAHA AAAAAAEAAAAAAREAAEKEKERAERKEHAAHEEe 


TATHIS ROUTINE WILL CONVERT A 32=BIT UNSIGNED BINARY NUMBER TO AN 
: #UNSIGNED OCTAL ASCIZ NUMBER. 


?*CAL 
ie MOV #PNTR,-(SP) i sPOINTER TO LOW WORD OF BINARY NUMBER 
3* JSR PC, a#$DB20 [CALL THE 
3* RETURN ::THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 
037520 104412 $DB20: SAVREG ii SAVE ALL REGISTERS 
037522 01601 990002 MOV 2(SP),R1 PICKUP THE POINTER TO LOW WORD 
037526 012705 03763 MOV #SOCTVL+13.,R5 33PO INTER TO DATA TABLE 
037532 012704 000014 MOV #12. ,R4 33D0 ELEVEN CHARACTERS 
037536 012703 177770 MOV #°C7_R3 Sk 
037542 012100 MOV (R1)4#,RO :TLOWER WORD 
037544 912101 MOV (R1)4.R1 [HIGH WORD 
037546 00 902 CLR R2 +: TERMINATOR 
037550 11024 1$: MOVB ——R2, = (RS) 37PUT CHARACTER _IN DATA TABLE 
037552 010002 MOV RO, S:GET THIS DIGIT 
037554 005304 DEC RG ::COUNT THIS CHARACTER 
037556 003007 BGT: 3$ ::BR IF NOT THE LAST DIGIT 
037560 001405 BEQ 2$ ::BR IF IT IS THE LAST DIGIT 
037562 005205 INC R5 SIALL DIGITS DONE-ADJUST POINTER FOR FIRST 
037564 010566 000002 MOV R5,2(SP) S:ASCIZ CHAR. & PUT IT ON THE STACK 
037570 104413 RESREG S:RESTORE ALL REGISTERS 
037572 000207 TS PC S:RETURN TO USER 
037574 006203 2$: ASR R3 ::POSITION THE MASK FOR THE Last DIGIT 
037576 006001 3$: ROR RI ::POSITION THE BINARY “UMBER FOR 
037600 006000 ROR RO t: THE NEXT OCTAL DIGIT 
037602 006001 ROR R1 
037604 006000 ROR RO 
037606 006001 ROR R1 
037610 006000 ROR RO 
037612 040302 BIC R3,R2 j :MASK OUT ALL JUNK 
037614 062702 000060 ADD #'6,R2 33 MAKE pitts CHAR. ASCII 
037620 00075 BR 1$ ::GO PUT IT IN THE DATA TABLE 
037622 SOCTVL: .BLKB 14. + RESERVE DATA TABLE 
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POWER DOWN AND UP ROUTINES 


ale lo lolol ololeloelolololq) 
WWANANNAWNWNAW 
SSN SSS 
~ o 
o 
&- 


WWWInNN— 


SHEMOLSNALOLON 


~“ 
oo 
No 


764 


GOoooococccoccooo00o0oo 
FE AWAANANNAAWNAANAWWW 
Fm 


040002 
040004 


loflefleleleleloleloleleololo) 


SCO OOOOCSOCoOoCoOSoCooSoooFD 
ot OC ot ot ot ot ot I I OOOOCO 


MS SRMNMNNININININIWU NI 


000000 
200 


040020 
141204 


037640 
000340 


012 


000000 


177776 


it 
000026 


000024 


000024 


000024 
000026 


042 
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-SBTTL POWER DOWN AND UP ROUTINES 


natn mae ee eee 


“BOWER DOWN ROUTINE 


$PWRDN: MOV 
MOV 
MOV 
MOV 
MOV R 
MOV R 
MOV R4 
MOV R5,° 


#SILLUP Swelte c 3 
#5403 api 


SET FOR FAST UP 
tSPUSH RO ON STACK 


:3 5 ON STACK 
"3 3PUSH a ON STACK 


SP, SSAVR6 33SAVE S 
MOV #SPWRUP ,a#PWRVEC ;;SET UP VECTOR 
BR 72 


33HANG UP 


SERRA HEAAAAA AAA AAA AAA AAAEA AERA AREAAARERAAARAARREARAAARARAKARAAReH AAAS 


: POWER A. ROUTINE 


$PWRUP: MOV 
OV 
CLR $ 
1$: INC 
BNE 
2s: DEC 
BLE 2 


SPWRMG: .WORD 


PWR 
MOV (PC)+, (SP) 
PWRUP 


SPWRAD: PY 
SILLUP: HALT 
BR 
SSAVR6: 0 
PWRFLG: .WORD 0 
MSGPWR: 
EN 


sTHIS ROUTINE HANDLES THE ee ON POWER UP. WAIT THREE (3) MINUTES AND 


072 


#SILLUP ,a#PWRVEC eaSeT FOR FAST DOWN 
SSAVR6, SP 


:GET 
SiMALT og FOR TTY 
- wee HE INC 


ORD 
:20F walt LOOP _ e SET POWER FAIL FLAG 


:WALT 4 
STA 


RO P STACK INTO RO 
WRON, aNPURVEC’ eer UP THE POWER DOWN VECTOR 
O,a#PWRVEC+2 ::PRIO:7 


Sa de THE POWER FAILURE 
POWER an pod pa POINTER 

SERESTART AT PWRUP 

3: sRESTART ADDRESS 


33 THE eee UP_ SEQUENCE WAS STARTED 
33 BEFORE T 
33PUT THE SP HERE 


sPOWER FAIL FLAG GOES HERE; 


eASCIZ = <CRLF><LF>/**POWER UP*’ AT / 


3D0 AN AUTO RE=START TO ‘SIZME 


PWRUP: INC #0 


RESET 
CLR 


sTTY LOOP, WAIT FOR INCREMENT 


ECLEAR Me. WORLD 
sCLEAR PSwW 


,O- 
~~ 


HE POWER DOWN WAS COMPLETE 


FA,LED= 1 


SEQ 0175 


SEQ 0176 
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EXER MACRO V 


AND UP ROUTINES 
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POWER DOWN 
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TRAP DECOD 
1 


040256 


040276 


040300 
040302 
040310 


040326 


000002 


040300 


000002 


040312 


000004 000002 


SEQ 0177 
.SBTTL TRAP DECODER 
SRRAAAAAAAAAAAEH AERA AEAAAAA REAL AERA RAAREAHAHEAHEHAEAREAHeAeee 
SSTHIS ROUT INE WILL PICKUP THE LOWER ByTE OF THE “TRAP’’ INSTRUCTION 
*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*#GO TO THAT ROUTINE. 
STRAP: MOV RO,<(SP) :3SAVE RO 
MOV 2($P), RO :GET TRAP ADDRESS 
TST =(RO} i SBACKUP y 
MOVB ~— (RO), RO ::GET RIGHT BYTE OF TRAP 
ASL :3POSITION FOR INDEXING 
MOV STRPAD(RO),RO 3; INDEX TO TABLE 
RTS RO ':G60 TO ROUTINE 
z:THIS IS USE TO HANDLE THE "'GETPRI'’ MACRO 
STRAP2: MOV (SP) ,<(SP) ::MOVE THE PC DOWN 
MOV 4(SP),2(SP) t:MOVE THE PSW DOWN 
ssRESTORE THE PSwW 
.SBTTL TRAP TABLE 
:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
[*BY THE “TRAP’' INSTRUCTION. 
3 ROUTINE 
$TRPAD: .WORD $TRAP2 
STYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
S$TYPOC ::CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (wl ING ZEROS) 
STYPOS ::CALL=TYPOS § TRAP+3(104403) TYPE OCTAL NUMBER (N NO 
STYPON ::CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS ST EAP) 
STYPDS ::CALL=TYPDS | TRAP*5(104405) TYPE DECIMAL NUMBER (W 
SGTSWR ;;CALL=GTSWR _ TRAP*6(104406) GET SOFT-SWR SETTING 
SCKSWR :;CALL=CKSWR -TRAP+7(104407) TEST FOR CHANGE IN SOFT-SWR 
SRDCHR ::CALL=RDCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
SRDLIN ::CALL=RDLIN AP+11(104411) TTY TYPEIN STRING ROUT INE 
SSAVREG ::CALL=SAVREG TRAP +12( 104414) SAVE RO-RS ROU uM NE 
SRESREG ::CALL=RESREG TRAP+13(104413) RESTORE RO-RS-R UTINE 
ALL=DISPLY TRAP#14(104414) ROUTINE TO TYPE OURAOR MESSAGES 


SDSPLY 
STERM=,.-$TRPAD 
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¢ -SBTTL RPO7 DRIVER 

18 sSTORAGE FOR RPDS, RPER1, RPER2, AND RPERS 

16 040344 000000 000000 000000 od Dh ~ WORD 9.0.0.8 30S, ER1, ER2 & ER3 STORAGE FOR DRIVE 0 
040354 000000 000000 000000 RPSTUI: .WORD -0,0,0 30S, ER1, ER2 & ERS STORAGE FOR DRIVE 1 
040364 000000 000000 000000 RPSTUZ: .wORD 0,0,0,0 :DS, ER1, ER2 & ERS STORAGE FOR DRIVE ¢ 
040374 000000 000000 000000 RPSTUS: .wW 0.0,0,0 :DS, ER1, ER2 & ERS STORAGE FOR DRIVE 
040404 000000 000000 000000 RPSTU4: . 0,0,0,0 DS, ER1, ER2 & ERS STORAGE FOR DRIVE 4 
040414 000000 000000 000000 RPSTUS: . 0,0,0,0 30S, ER1, ER2 & ER3 STORAGE FOR DRIVE 5 
et eh 000000 000000 000000 RPSTU6: .wORD 0,0,0,0 30S, ER1, ER2 & ER3 STORAGE FOR DRIVE 6 

17 040434 000000 000000 000000 RPSTU7: .wORD 0,0,0,0 30S, ER1, ER2 & ERS STORAGE FOR DRIVE 7 

18 sTABLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES) 

19 sDRVACT=0 IF ORIVE IS IDLE 

20 sDRVACT>O IF DRIVE IS ACTIVE WITH A COMMAND 

$3 DRVACT<O IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION 

23 040444 000 DRVACT: .BYTE 0 sDRIVE 0 

24 040445 000 BYTE 0 sDRIVE 1 

25 040446 000 BYTE 0 sDRIVE ¢ 

26 040447 000 BYTE OQ sDRIVE 

27 040450 000 BYTE OQ sDRIVE 4 

28 040451 000 BYTE QO sDRIVE 5 

29 040452 000 -BYTE 0 sDRIVE 6 

HY 040453 000 BYTE 0 sDRIVE 7 

32 ;TABLE OF DRIVE STATUS INDICATORS (DRVSTA=8 B 

33 sDRVSTA=0 IF DRIVE IS OFFLINE OR NONEXSI TENT 

34 sDRVSTA>O IF DRIVE IS ONLINE 

$ DRVSTA<O IF DRIVE IS UNSAFE 

37 040454 000 DRVSTA: .BYTE 0 sDRIVE 0 

38 040455 000 -BYTE 0 sDRIVE 1 

9 040456 000 YTE QO sDRIVE ¢ 

40 040457 000 BYTE Q sDRIVE 

41 040460 000 T 0 sDRIVE 4 

42 040461 000 -BYTE 0 sDRIVE 5 

43 040462 000 BYTE 0 sDRIVE 6 

re 040463 000 BYTE 0 sDRIVE 7 

46 : TABLE OF oie TYPES (ORVTYP=8 BYTES) 

47 sDRVTYP= O IF DRIVE IS NONEXISTENT (DRVSTA=0, ALSO) 

& DRVTYP= 4 IF DRIVE IS RPO7+ 

pad DRVTYP= 5 IF DRIVE IS RPO? MOVING HEAD OPTION 

20 sDRVTYP=-1 IF NOT RPO? 

52 040464 000 DRVTYP: .BYTE 0 sDRIVE 0 

53 040465 000 BYTE OQ sDRIVE 1 

54 040466 000 0 DRIVE ¢ 

55 040467 000 BYTE 0 sDRIVE 

56 040470 000 BYTE QO sDRIVE 4 

57 040471 000 BYTE 0 sDRIVE 5 

58 04047 000 BYTE 8 sDRIVE 6 

4 04047 000 BYTE sDRIVE 7 

61 TABLE OF DUAL PORT INITIALIZATION INDICATORS 
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6 sDPINT=O IF INITIALIZATION IS NOT ACTIVE ON THE DRIVE 

e? sDPINT<O IF INITIALIZATION IS IN PROGRESS 

65 040474 000 DPINT: .BYTE 0 sDRIVE 0 

66 040475 000 -BYTE QO sDRIVE 1 

67 040476 000 -BYTE QO sDRIVE § 

68 040477 000 -BYTE Q sDRIVE 

69 040500 000 -BYTE QO sDRIVE 4 

70 040501 000 -BYTE QO sDRIVE 5 

71 040502 000 -BYTE 9 sDRIVE 6 

ue 040503 000 -BYTE 0 sDRIVE 7 

74 ; TABLE OF pPhosene DUAL PORT REQUESTS 

75 QS=0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE 
rs ‘ DPROS<O IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE 
78 040504 000 DPRQS: .BYTE 0 sDRIVE 0 

79 040505 000 -BYTE 0 :DRIVE 1 

80 040506 000 -BYTE 0 sDRIVE 2 

81 040507 000 -BYTE 0 sDRIVE 3 

82 040510 000 -BYT 0 sDRIVE 4 

83 040511 000 -BYTE 0 sDRIVE 5 

84 040512 000 -BYTE 0 sDRIVE 6 

+H 040513 — 000 -BYTE 0 sDRIVE 7 

87 ; TRANSFER WAIT jay (TRNSWT=1 WORD) 

88 sTHIS IS A ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF 

34 ;"DPB’ OF THE 1/0 OPERATION, 

39 040514 000000 TRNSWT: .WORD 0 

93 SEARCH WAIT “ys. (SRCHWT=1 WORD) 

Gh sTHIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF 
95 ; THE heh THAT on a te MING A SEARCH C Set - THE 1/0 
96 REQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE 

44 SEACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE 0. 
190 040516 000000 SRCHWT: .WORD 0 
101 3RPO7 oniver ACTIVE FLAG (ACTORV=1 BYTE) 

102 ACTORV=0 IF DRIVER IS INACTIVE 

+ F4 FACTDRV>0 IF DRIVER IS ACTIVE 
igo 940520 000 ACTDRV: .BYTE 0 
107 ; SOF TWARE Ho RO\ "INE ACTIVE FLAG (ACTSTR=1 BYTE) 

108 sACTSTR=0 , SOFTWARE TIMER ROUTINE IS INACTIVE 

+ 4 ACTSTR>O 1, SOFTWARE TIMER ROUTINE IS ACTIVE 

ef. 040521 000 ACTSTR: .BYTE 0 

118 3; SAVE meat $s J AG (SAVEFG=1 WORD) 

114 FG <Q IF SAVE THE RHXX/RPO7 REGISTERS WHEN THE 

115 ZOPERATION ‘8 COMPLETED AS PER >, 

116 AVEFG=0 IF SAVE THE RHRX/RPO? REGISTERS, AS PER 

#4 :tDPB+ia), AFTER AN ERROR. 
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SAVEFG: .WORD 0 

sSEEK FLAG (SEEKFG=1 a a 
;SEEKFG=0 IF WHEN THE DISK ADDRESS ISN'T IN THE WINDOW 
3FOR A DATA TRANSFER START A SEARCH COMMAN 
sSEEKFG<O IF DATA TRANSFER WILL DO IMPLIED SEEKS, 
DISREGARD THE WINDOW 

SEEKFG: .WORD =1 


Acvitearased ate (TIMER=8 WORDS) 
THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 


TIMER: .WORD =1 sDRIVE 0 
-WORD =1 sDRIVE 1 
-WOR 1 sDRIVE ¢ 
-WOR -1 sDRIVE 
~WOR 1 sDRIVE 4 
-WO o| sDRIVE 5 
-WO 1 sORIVE 6 
-WORD 1 sDRIVE 7 
;DATA TRANSFER UNDERWAY INDICATOR (DTUW=1 — 
;DTUW<O IF NO DATA TRANSFER UNDERW 
;DTUW=*N (WHERE N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N 
DTUW:  .WORD =1 


sATTENTION A'S TABLE (ATABIT=8 BYTES) 
sTHIS TABLE rains THE CORRESPONDING BIT TO EACH DRIVES 
SATTENTION BIT 


ATABIT: .BYTE 1 sDRIVE 0 
BYTE 2 sDRIVE 1 
-BYTE 4 sDRIVE ¢ 
-BYTE 10 sDRIVE 
BYTE 20 sDRIVE 4 
BYTE 40 sORIVE 5 
BYTE 100 sDRIVE 6 
-BYTE 200 sORIVE 7 
STORAGE FOR RPADR (THE FIRST GOpRE s> (776700) OF THE RHXX/RPO7), 
SRPVEC (THE VECTOR ADDRESS (254)), AND RPVEC#2 (THE BR LEVEL (5)). 
RPADR: .WORD 176700 sRHXX/RPO7 CONTROL STATUS REGISTER 
RPVEC: .WORD gf0-9°52. ;VECTOR ADDRESS & BR LEVEL 5 
RHEXT: .WORD 0 SOFFSET TO RPBAE 
sSEARCH DIFFERENCE IS 1 SECTOR 
MXWNDW: .WORD 1 
DEFINITIONS OF THE RHXX/RPO7 ADDRESS INDEXES 
RPCS1 =0 ;CONTROL AND STATUS REGISTER #1 (DRIVE REG. 00) 
RPWC = 2 ;WORD COUNT REGISTER (NOT A DRIVE REG) 
RPBA = 4 SUNIBUS ADDRESS REGISTER (NOT A DRIVE REG) 


SEQ 0180 


SEQ 0181 
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040750 


040454 
177770 
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CALL 


3 JSR 
: RETURN 


PC,RPINIT 


CH RPO7 DRIVE 
wr DRVSTA IND 


S ARE 
ICATOR 


;NOTE: THE 'P* OR 'L* CLOCK MUST BE STARTED 


RPINIT: SAVREG 


1$: CLR 


2$: MOV 


Ri + 


MBITOS,RPCS2(RA)’ 


RO,DRVINT 
4$ 

5$ 
DRVSTA(R1) 
#*C7,R1 
(SP)+,aaPS 
PC 


AVE RO = R5 
SAVE THE ene SENT a” Se ag STATUS 
ZCHANGE THE PRIORITY TO 5 
:CLEAR ALL REQUEST QUEUES 


FIRST ADDRESS TO BE CLEARED 
3;LAS 


T ADDRESS TO BE CLEARED 


2 R 
;ARE WE DONE? 
;BRANCH IF NO 


Ast ADDRESS 
;INITIA 


LIZE 


; DONE? 
;LOOP IF NO 
SET ALL DRIVES TO OFFLINE 


;SETUP THE RHXX/RPO7 VECTOR 


FIRST ADDRESS OF RHXX/RPO7 
:MASSBUS IN 

START Hit DRIVE 0 

syuir,t HE 


DRIVE 
NOT SET OR PARITY ERROR 
;NORMAL RETURN 


SET DRIVE STATUS TO OFFLINE 
:G0 TO NEXT Vv 
;MASK OUT UNUSED BITS 

R_ IF MORE 


:B DRIVES TO GO 

* RESTORE THE PROCESSOR STATUS 
sRESTORE RO = RS 

;BYE-BYE 


SEQ 0182 
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024040 
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3 CALL 


DRVINT: 


1$: 


2$: 


3$: 


4$: 


a 
zur 


RETURN 
RETURN2 
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R COMMAND (& SEIZE DRIVE) 
VE? 


DV 
RE — ON DUAL PORT INITIALIZE ? 


ATION ROUTINE 
QUTINE DETERMINES IF A DRIVE EXIST AND 
7. IF IT IS, A READ-IN PRESET’ IS ISS 
TOA ‘'I''. THEN MOL, DPR, DRY, AND 
THEY ARE ALL ON A “1'', AND DEPEND 
IS SET TO THE PROPER CONDITION. 
RPADR,R4 sUNIBUS ** -RESS OF RHXX/RPO7 (RPCS1) 
#ORVNUM,R1 ‘DRIVE NUMBER 
RO, DRVINT ‘CALLED BY A JSR 
TERROR OCCURRED (PARITY) 
SNORPAL RETURN 
RS,=-(SP) ;SAVE RS 
#-1,DPINT(R1) SET THE DUAL PORT INITIALIZE FLAG 
#10000. , TIMER(R1) ;START 10. SECOND TIMER 
R1 sDRIVE ADDRESS 
DRVSTA(R1) sSTART DRIVE STATUS AS OFFLINE 
DRVTYP(R1) SCLEAR THE DRIVE TYPE INDICATOR 
1,RPCS2(R4) “SELECT A DRIVE 
#111,RPCS1(R4) :DO A DRIVE CLEA 
wBLTi2 RPCS2(RA) :NONEXISTENT DRI 
PC,SET.IE [GO SET IE'’ WITHOUT A ‘'TRE"’ 
6$ [LEAVE THIS ROUTINE 
DRVSTACR1) sSET DRIVE STATUS TO OFFLINE 
#BIT17 .RPCS1(R4) gSEE IF DRIVE AVAILABLE 
DPINT(R1) + SOF TWA 
1$ [BRANCH IF 
rs 3 SOTHERWISE EXIT 
RO,RD.RP sREAD THE DRIVE TYPE REG. 
SERROR RETURN ADDRESS 
(SP)+,R5 [PUT DRIVE TYPE IN R5 
#5,DRVTYP(R1) :SET RPO? INDICATOR 
#26040,R5 ?SINGLE PORT RPO7 
4$ 'BR IF YES 
#24040,R5 DUAL PORT RPO7 
#4,ORVTYP(RI) SET RPUPS INDICATOR 
#26042,R5 *SINGLE PORT RPO7+ 
A *BRANCH IF SO 
#24042,R5 : DUAL PORT RPO7+ 
#-1,DRVTYP(R1) SET INDICATOR TO ‘OTHER’ 
6$ EXIT 
#121,-(SP) 7D0 A 'READ-IN PRESET" 
RO,WRT.RP 


SEQ 0183 
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58 041160 012746 019000 MOV WBIT12,<(SP) | ;SET FMT16=1 
59 941164 boc09 813908 JSR RO,WRT.RP 
60 041170 00003 RPOF 
61 041172 04126 85 
6¢ 041174 004037 045036 JSR RO,RD.RP sREAD RPDS 
43 041200 00001 RPDS 
64 041202 04126 8$ 
65 041206 01260 MOV (SP)+,R5 ZAND SAVE IT IN R5 
66 041206 100015 BPL 5$ ‘BRANCH IF ATA=0 
67 041210 116164 040550 000016 MOVB ATABIT(R1), RPAS(RG) ;CLEAR A BIT 
68 041216 004037 045036 JSR RO,RD.RP FIND OUT WHY ATA=1 
69 O4i2¢2 000014 RPER1 
70 041224 041262 4 
71 041286 006126 ROL (SP)+ :1S IT UNSAFE? 
es 041230 100004 BPL ‘BR IF NOT 
73 041232 112761 177777 060454 MOVB #=1,DRVSTA(R1) :SET UNSAFE INDICATOR 
if 041240 000407 BR 6$ EXIT 
76 041242 005105 5$: COM RS s CHECK MO DPR, DRY, AND VV 
77 041244 042705 167077 BIC FC<BIT12!BI TOBIAS TDS *BIs 6>,R5 
78 041250 001003 BNE $ ;BRANCH IF MOL, DPR, DRY, OR VV IS CLEAR 
79 041252 112761 000001 040454 MOVB #1,DRVSTA(R1) sSET DRIVE STATUS TO ONL LIN E 
BO 041260 005720 6$: TST (Rb) + :STEP OVER THE ERROR RETURN 
81 041262 7$: 
82 041262 006301 8$: ASL R1 WORD INDEX 
3 041264 012761 177777 040526 MOV #-1, TIMER(R1) $STOP THE CLOCK 
84 041272 006201 ASR R1 sDRIVE ADDRESS 
85 041274 105061 040474 CLRB DPINT(R1) 
86 041300 012605 MOV (SP)+,R5 ;RESTORE RS 
87 041302 000200 RTS RO EXIT 
4 sREQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST 
4 3 CALL 
93 2 JSR RO,RPO7 sCALL THE RPO7 DRIVER 
94 $ ONTA DR sADDRESS OF POINTER OF DRIVES PARAMETER BLOCK 
95 : RETURN1 SRETURN HERE IF QUEUE IS FULL 
96 3 RETURN2 sRETURN HERE IF REQUEST IS IN QUEUE OR THERE 
97 [1S AN ERROR CONDITION 
99 041304 013746 177776 RPO7: MOV aePs,-(SP) ;SAVE_THE CALLING STATU 
100 041310 013737 040564 177776 MOV RPVEC+2,aa#PS DON'T ALLOW ANY RPO? YATERRUPTS 
101 pel eae 112737 000001 040520 MOVB #1,ACTD RV fy ¥ “ACTIVE DRIVER’’ FLAG 
108 1324 104412 SAVREG R 
10 o2 1360 Oi 00s MOV (RO) ,R2 ‘ST CKUP THE DRIVE PARAMETER BLOCK POINTER 
104 041330 005062 000016 CLR 16(R3) [CLEAR THE STATUS/ERROR INDICATOR 
105 041334 111201 MOVB = (R2),R1 SPICKUP THE DRIVE NUMBER 
106 041336 013704 040560 MOV RPADR,R4 sUNIBUS ADDRESS OF RPCS1 
107 041342 105761 040454 TSTB = DRVSTAC(R1) [CHECK DRIVES STATUS 
108 041346 905006 BGT [BRANCH IF ONLINE 
109 041350 004037. 040750 JSR RO,DRVINT [GO INIT, THE DRIVE 
110 041354 000421 BR 3$ TERROR RETURN 
a 041356 105761 040454 TSTB gevseneees 31S DRIVE STATUS ONLINE? 
113 041362 003435 BLE BR I 
114 041364 105761 040504 1$: TSTB DPRQS(R1) sQUTSTANDING PORT REQUEST FOR THE DRIVE ? 
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2$: TSTB 


38: JSR 


4$: JSR 


5$: TSTB 


DRVACT(R1) 
PC,OPT 

7$ 

PC,CI7 

7$ 

RO, DRVQUE 
8$ 
#0,RPCC(R4) 
#BIT06, (R4) 


$ 
PC,SET.IE 
7$ 


DRVSTACR1) 


“BR 
#B1T15!B1T14,16(R2) 
P(R1) 7 SEE 


DRVTY 


7$ : 
#B1T15!B1T01,16(R2) 
7$ 360 


D 15 


4$ 
R1,RPCS2(R4) 
RO, DRVQUE 
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3GO HANDLE THE PARITY ERROR 


sPUT REQUEST IN QUEUE 
QUEUE IS FULL 


SWRITE THE CURRENT CYL REG 
:1E BIT SET ? 
SSET THE INTERRUPT 
RETURN 
sSEE IF DRIVE OFFLINE OR UNSAFE 
F UNSAFE 
sSET OFFLINE ERROR INDICATOR 
if OFFLINE OR NONEXISTENT 


IF OFFLINE 
REPORT DRIVE NONEXISTENT 
TO EXIT 


#BITIS!BIT12,16(R2)  ;DRIVE IS UNSAFE 
RESTORE RO - R 


(RO)+ 
9$ 


(RO)+ 
ACTDRV 
(SP)+,aaPS 
RO 


;SETUP FOR NORMAL RETURN 
sFINISH UP, THEN EXIT 


RESTORE RO - R5 

CORRECT THE RETURN ADDRESS 
CLEAR ACTIVE DRIVER’ FLAG 
:RETURN "PS" TO USE 
RETURN TO CALLER 


sOPTIMIZER=CALLED FOR A PARTICULAR DRIVE 


CALL 


Orececece® 
v 
— 
= 27, 
oP, 
<< 
za 
mn 
a 


#DPB,R2 
#ORVNUM,R1 
PC,OPT 


sADDRESS OF DRIVE PARAMETER BLOCK 
DRIVE NUMBER 
7SETUP A COMMAND 


sSAVE RO 


- R5 
. gSAve PROC. STATUS 


CLEAR SEARCH FLAG 


W : 
RESET THE PORT REQ FLA 


LAG 
3GET "‘DPB’’ POINTER OF REQUEST 
31S THERE A REQUEST IN QUEUE? 
3NO--BRANCH TO EX 
LOAD THE DRIVE ADDRESS 
CLEAR THE DRIVE 


SEQ 0185 
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175 041604 032764 004000 000000 BIT #B1T11,RPCS1(R4) ;DVA SET ? 

176 041612 001446 BEQ ;TO PROT’REQUEST ,IF NOT 

177 041614 105761 040454 1$: TSTB = DRVSTACR1) [1S DRIVE ONLINE? 

178 041620 003014 BGT 2$ : YES=-BRANCH 

179 041622 004737 046166 JSR PC, POPQUE “NO=-REMOVE REQUEST FROM QUEUE 

180 041626 O1276¢ 140000 000016 MOV #BIT15'BIT14,16(R2) SET OFFLINE STATUS/ERROR INDICATOR 
181 041634 105761 040454 TSTB = DRVSTA(R1) :1S DRIVE UNSAFE ? 

188 041640 100056 BPL iBR TO EXIT IF NOT 

183 041642 01276¢ 110000 000016 MOV #BIT15'BIT12,16(R2) ;SET UNSAFE STATUS/ERROR INDICATOR 
184 041650 00045 BR 9$ :BRANCH TO EXIT 
186 041652 122762 000150 000002 2$: CMPB Ss #150, 2(R2) :1S THE REQUEST FOR 1/0? 

187 041660 00240 BLT S YES=-BRANCH ; 

188 041662 12e76e 000135 000002 CMPB ss #135,,2(R2) 71S IT A DIAGNOSTIC COMMAND ? 

189 041670 00140 BEQ 3h ‘BRANCH IF 

190 041672 004737 042312 JSR PC.CI4 [CALL THE COMMAND INITIATOR 

191 041676 000437 BR 9$ SBRANCH TO EXIT 
198 041700 005737 040546 3$: TST DTUW :DATA TRANSFER UNDERWAY? 

194 041704 002006 BGE [BR IF YES 

195 041706 005737 040524 TST SEEKFG :D0 IMPLIED SEEKS ? 

196 041712 100003 BPL 5$ [NO, DO SEARCH 

197 041714 004737 042006 4$: JSR PC,C11 SSTART A DATA TRANSFER 
198 041720 000426 BR 9$ 
200 041722 004737 042200 S$: JSR PC,C13 ;START A SEARCH ON TARGET SECTOR -1 
301 041726 000423 BR 9$ :G0 TO THE EXIT 
$08 041730 112761 177777 040504 6$: MOVB #-1,DPRQS(R1)  :SET PORT REQUEST INDICATOR 
204 041736 010103 MOV R1,R3 [SET UP TO ADDRESS WORDS 
205 041740 006303 ASL R “CONVERT TO WORD INDEX 
206 041742 012763 935230 640526 MOV #15000.,TIMER(R3) ;START 15. SECOND TIMER 
207 041750 012764 000000 000036 MOV #O,RPCC(RG) sSET PORT REQUEST 
208 041756 000402 BR R$ TEXIT 
210 041760 004737 042670 7$ JSR PC,CI7 :PROCESS THE PARITY ERROR 
211 041764 032714 000100 8$ BIT #B1T06, (R4) [SEE IF ‘IE" ALREADY SET | 
12 041770 00190 BNE 9$ :BR IF SET al | 
213 041772 004737 045426 JSR PC,SET :SET IE’ WITHOUT A "'TRE | 
214 041776 012637 177776 9$: MOV (SP) +, aaPs TRESTORE PROC. STATUS 2 
215 042002 104413 RESREG SRESTORE RO - R5 
216 042004 000207 RTS PC 
$18 sCOMMAND INITIATOR 
219 z 
220 CALL 
221 : MOV #DPB,R2 :ADDRESS OF DRIVE PARAMETER BLOCK 
33¢ : MOV #ORVNUM,R1 SDRIVE NUMBE 

2 ; JSR PC,C1229? 31222? = C11, C13, OR C14 

224 : sWHERE: 
225 ; : CI1 = DATA TRANSFER 

226 : : C13 = SEARCH REQUESTED BY DATA XFER 
34 F ; C14 = NO DATA TRANSFER 

$8 042006 004737 046166 Cli: JSR PC, POPQUE ;REMOVE REQUEST FROM "DRIVES WAIT’ QUEUE 
230 042012 010237 040514 MOV R2. TRNSWT [PUT REQ. IN TRANSFER WAIT QUEUE 

231 042016 010203 MOV R2,R3 [DPB ADDRESS TO R3 
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7 PERF EXER 
020 013704 
cate 
036 061 11 
040 big 46 
044 052716 
050 004037 
054 BOgdEs 
056 042670 
060 000422 
062 66 703 
066 062704 
072 01 3s¢ 
074 Biss 4 
076 012346 
100 004037 
104 000006 
106 042670 
110 012346 
112 004037 
116 000034 
120 042670 
122 004737 
196 016246 
132 004037 
136 000000 
140 042670 
142 010137 
146 000157 
152 026262 
160 002406 
2162 012746 
2166 004037 
2172 000024 
2174 042670 
2176 000207 
2200 013704 
2204 010164 
2210 016246 
$$36 004037 
20 000034 
2222 04267 
2224 00473 
2230 116203 
234 163903 
$78 00 if 
42 06270 
$08 010346 
5 hoses 
$28 004 
$6 000006 
6264 042670 
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MACRO V04.00 1-JAN-83 12:06:52 PAGE 57-4 
04056 MOV RPADR,R4 
000010 MOV R1,RPCS2(R4) 
000135 000002 CMPB mh ars tesh 

BNE 1$ 
20s ates 
beh 30 JSR RO,WRT.RP 
RPMR1 
17 
BR 2$ 
000004 1$: ADD #4,R3 
000002 ADD #2-R4 
MOV (R3)+,(RG)+ 
MOV (R3) +, (RG)+ 
MOV (R3)+.=(SP) 
045130 JSR RO,WRT.RP 
RPDA 
C17 
MOV (R3)+,=(SP) 
045130 JSR RO,WRT.RP 
RPDC 
C17 
042152 JSR PC,C12 
000002 2$: MOV 2(R2),=(SP) 
045130 JSR RO,WRT.RP 
ass 
040546 MOV R1,DTUW 
042632 JMP c1§ 
000012 000156 ClI2: CHP 12(R2) ,FET(R2) 
100000 MOV #B1T15,-(SP) 
045130 JSR RO,WRT.RP 
RPMR1 
C17 
1$: RTS PC 
040560 C13: MOV RPADR,R4 
000010 MOV R1,RPCS2(R4) 
000012 MOV 12(R2) ,-(SP) 
045130 JSR RO,WRT.RP 
RPDC 
C17 
042152 JSR PC,C12 
000010 MOVB ~—-10(R2),R3 
040570 SUB MXWNDW,R3 
BGE 1$ 
000062 ADD #50. .R3 
: MOV R3,-(SP) 
000011 000001 MOVB  11(R2),1(SP) 
045130 JSR RO,WRT.RP 
a 


OSTIC COMMAND ? 


NE NUMBER, PARAMETERS 
OSTIC MODE BIT 
R1 REG 


za] 


;LOAD THE COMMAND AND EXIT 


DESIRED WORD COUNT 
;RPWC ADDRESS 


st AND_ TRACK 
CALL THE LOAD(WRITE) ROUTINE 
INDEX OF REGISTER TO LOAD 


sERROR RETURN ADDRESS 
;LOAD CYLINDER ADDRESS 


3SEE IF BIT15 SHOULD BE SET IN RPMR1 
;LOAD *‘COMMAND+GO"", ‘'A17&A16"", AND ‘'PSEL"’ 


3SET ‘DATA TRANSFER UNDERWAY’ 
4 ig Ne TO FE CYLINDERS ? 


:SET THE DIAGNOSTIC MODE BIT 
[WRITE THE RPMR1 REG 


;RPCS1_ ADDRESS 
SELECT DRIVE 
DESIRED CYLINDER ADDRESS 


3SEE IF BIT15 SHOULD BE SET IN RPMRI 


sPICKUP SECTOR ADDRESS 
+ oe MAX, SEARCH FOR 1/0 WINDOW 


3B% s 

*ADD MAXIMUM SECTOR COUNT BACK 
sCOMBINE THE ADJUSTED SECTOR WITH 
sTHE DESIRED TRACK 

sLOAD DESIRED TRACK & SECTOR 


SEQ 0187 
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RPO7 DRIVER 
32 042266 012746 000131 MOV #131,-(SP) START A SEARCH 
97 04 366 004037 045130 JSR RO,WRT.RP ; 
98 04 76 000000 RPCS1 
80 be 309 ogee 040550 040516 6158 ATABIT(R1),SRCHWT SET "SEARCH WAIT’’ KEY 
5 . : 6 ee 
301 042310 000380 BR C15 
303 042312 013704 040560 Cl4: MOV RPADR,R4G sRPCS1 ADDRESS 
304 eats 010164 000010 MOV RI -RPCSE (RA) ‘SELECT DRIVE 
305 042322 119603 000002 MOVB 2(R2),R sPICKUP THE REQUESTED COMMAND 
306 04 326 122703 000131 CMPBs«#131,R3 :1$ IT A SEARCH COMMAND? 
07 042332 001907 BNE 1$ :BRANCH IF NO 
308 042334 016246 000010 MOV 10(R2),-(SP) sLOAD DESIRED TRACK & SECTOR 
309 042340 004037 045130 JSR RO,WRT.RP 
310 042344 000006 RPDA 
311 042346 042670 C17 
312 042350 000403 BR 2$ :GO LOAD CYLINDER 
Hi 042352 122703 000105 1$: CMPB ss #105, R3 31S IT A SEEK COMMAND 
315 042356 001011 BNE 3$ “BRANCH IF N 
316 042360 016246 000012 2$: MOV 12(R2) ,-(SP) sLOAD DESIRED CYLINDER 
317 042364 004037 045130 JSR RO,WRT.RP 
318 042370 000034 RPDC 
319 042372 042670 C17 
320 062374 004737 042152 JSR PC,C12 :SEE IF BIT1S SHOULD BE SET IN RPMR1 
321 042400 000525 BR c1é 
323 042402 122703 000115 3$: CMPB ss #115, R3 s1S IT AN “OFFSET’ COMMAND ? 
324 042406 001013 BNE ‘BR IF NO 
325 042410 004037 045036 JSR RO,RD.RP sMERGE THE OFFSET VALUE INTO RPOF 
26 042414 000032 RPOF sBUT DON'T CHANGE THE UPPER 
27 042416 042670 C17 
28 gesese 116216 000001 MOVB 1(R2), (SP) sBYTE WHEN LOADING THE 
4 04 £$6 004037 045130 JSR RO,WRT.RP sREGISTER (RROF) 
330 042430 000032 RPOF 
331 042432 042670 C17 
332 042434 000507 BR C16 :GO START THE COMMAND 
337 042436 122703 000107 4$: CMPB #107,R3 71S IT A “‘RECALIBRATE*’ COMMAND? 
335 Ougade 001504 BEQ C16 ‘BRANCH IF YES 
36 042444 122703 000117 CMPBssa#117, R3 [1S IT A RETURN TO CENTER? 
37 042450 001501 BEQ C16 BRANCH IF YES a 
$s 042452 £55003 000143 5$: CMPB #143,R3 :1S IT A “SET FORMAT’’ COMMAND? 
9 042456 001014 BNE 6$ [BRANCH IF 
0 042460 004037 045036 JSR RO,RD.RP sREAD THE OFFSET REGISTER 
1 464 000032 RPOF 
tg 4 466 042670 C17 .] ere ee a oe 
43 042470 116266 000001 000001 MOVB  ——«-1(R2), 1(SP) SCOMBINE “'FMT16"',"ECI', AND “HCI 
4 04 476 004037 045130 JSR RO,WRT.RP 
45 042502 909052 RPOF 
6 042504 042670 CI 
47 042506 000436 BR 12$ 
49 042510 122703 000141 63: CMPB ss #141,R3 s1S IT A “GET REGISTER" COMMAND? 
350 042514 90102 BNE 10$ “BRANCH IF NO 
51 042516 0162 000006 7$: MOV 6(R2),R3 sPOINTS TO 1ST ADDRESS OF WHERE 
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OAQ RPO7 PERF EXER MACRO V04.00 1-JAN-83 12:06:52 PAGE 57-6 SEQ 0189 
5 :T0 PUT THE REGISTER(S) 
334 0425 ; 116237 000010 042540 MOVB 10(R2) 98 SINIT. THE INDEX FOR THE FIRST REG 
334 042530 116205 000011 MOVB = 11(R2) <5 SINDEX OF LAST REG. TO MOVE 
55 042534 004037 045036 8$: JS RO,RD.RP TREAD RHXX/RPO7 REGISTER 
326 04 240 909000 9$: RPCS1 SINDEX OF REG. TO READ 
324 042544 Oige93 MOV (SP) +, (R3)+ :GET THE CONTENTS OF jRHAX//RPO7 REG 
359 042546 023705 042540 CMP 9$,R5 [LAST REG. BEEN REAN 
360 042552 001414 BEQ 12§ 'GET OUT ES 
61 042554 062737 000002 042540 ADD #2,9% SINCREASE THE IND“X BY 2 
362 042562 000764 BR 8$ ‘LOOP==MORE TO READ 
37 042564 122703 000145 10$:  CMPB 4#145,R3 :1S IT A "SELECT DRIVE’ COMMAND? 
65 042570 001405 BEQ 12s ‘BRANCH IF YE 
66 042572 010346 11$: MOV R3,-(SP) SLOAD THE COMMAND 
67 042574 004037 045130 JSR RO; WRT.RP 
68 042600 000000 RPCS1 
69 042602 042670 C17 
70 0426046 004737 046166 12$: JSR PC, POPQUE REMOVE REQ. fRom QUEUE 
371 042610 052762 000200 000016 BIS #B1T07,16(R2) SET T T 
372 042616 005737 040522 TST SAVEFG i SAVE RWAX/RPO? REGISTERS ? 
373 042622 100002 BPL 13$ R 
374 042604 004737 045262 JSR PC, SVRHXX veS-<60 SAVE THE REGISTERS 
375 042630 000207 13$: RTS PC ‘RETURN TO USER 
377 042632 006301 CIS: ASL R1 
378 042634 012761 023420 040526 MOV #10000. , TIMER(R1) ;START 10. SECOND TIMER 
379 042642 006201 ASR R 
380 042644 112761 000001 040444 MOVB #1, D0RVACT(R1) eset THE DRIVE ACTIVE 
381 042652 000207 RTS PC SRETURN TO THE USER 
383 042654 010346 C16: MOV R3,-(SP) ;LOAD THE COMMAND 
384 042656 004037 045130 JSR RO; WRT.RP 
385 042662 000000 RPCS1 
386 042664 042670 C17 
387 042666 000761 BR C15 
389 042670 005702 CI?: TST R2 SANYTHING IN QUEUE ? 
390 042672 001001 BNE 1$ :BRANCH IF QUEUE IS THERE 
391 042674 000207 RTS PC OTHERWISE EXI cs 
392 042676 012762 104000 000016 1S: MOV #B1T15!B1T11, 16(R2) 7SET PARITY’ ERROR INDICATOR 
94 042704 012746 000111 C17B: MOV wiit 52(SP) 7D0 A "DRIVE CLEAR" 
95 042710 004037 045130 JSR RO,WRT.R 
96 042714 000000 RPCS1 
397 042716 042756 C18 
398 042720 004737 046050 JSR PC,EMPTYO ZEMPTY THE QUEUE 
399 042724 105061 040504 CLRB  —s DPROS(R1) [CLEAR THE PORT REQUEST FLAG 
400 042730 105061 040444 CLRB  —s DRVACT(R1) ‘DRIVE IS IDLE 
401 042734 020237 040514 CMP R2, TRNSWT [IF THIS DRIVE HAD AN I/O REQUEST 
402 042740 001005 BNE 1$ [IN PROGRESS CLEAR ALL OF THE FLAGS 
403 042742 005037 040514 CLR TRNSWT 
404 042746 012737 177777 040546 MOV #-1,DTUW 
405 042754 000207 1$: RTS PC 
407 042756 104412 C18:  SAVREG 7SAVE RO = RS 
408 042760 005001 CLR R1 
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SEQ 0190 


CLR R3 
040444 1$: TSTB = DRVACT(R1) sDRIVE ACTIVE? 
BNE 2$ ‘BRANCH IF IN ACTIVE 
040504 TSTB = DPROS(R1) “PORT REQUEST 
BEQ a3 ‘BRANCH IF NOT 
040514 2$: MOV TRNSWT,R2 ‘GET ‘'DPB'’ FROM THE ‘TRANSFER WAIT'’ QUEUE 
040546 CMP R1,DTUW :DID THIS DRIVE HAVE AN 1/0 IN PROGRESS? 
BEQ 3$ ‘BRANCH IF YES 
046144 JSR PC,CETREQ *GET THE DPB POINTER 
3$: TST R2 “QUEUE ENTRY FOR DRIVE ? 
BEQ 5$ ‘BR IF NOT 
010000 000010 BIT WBIT12,RPCS2(R4) ;"NED' SET ? 
BEQ 4$ -BR IF NOT 
100002 000016 MOV #B1T15'B1T01,16(R2) SET "DRIVE NON-EXISTENT’ INDICATOR 
BR 5$ : CONT [NUE 
102000 000016 4$: MOV #B1T15!B1T1 SET “NON=CLEARABLE PARITY’ ERROR INDICATOR 
177777 040526 5$: MOV #-1, TIMER(R (Re ob THE TIMER 
040444 CLRB = DRVACT(R1) :SET "DRIVE ACTIVE" 10 IDLE 
040504 CLRB = OPROQS(R1) i CLEAR PORT REQUEST FLAG 
040546 bur ST ines 31S ae eae SETUP tOR A TRANSFER 
177777 040546 MOV #-1,DTUW SRESET THE INDICATOR 
040514 CLR TRNSWT “CLEAR THE TRANSFER QUEUE 
6$: INC R1 ‘MOVE TO THE NEXT DRIVE 
000002 ADD #2,R3 
177770 BIC #°C7,R1 
BNE sBRANCH IF MORE DRIVES 
177777 040546 MOV #=1,0TUW :NO DATA TRANSFERS UNDERW 
040514 CLR W : CLEAR THE ‘TRANSFER OArTe “oueu E 
045772 JSR PC, CLRQUE >CLEA R ALL OF THE REQUEST QUEUES 
000040 000010 MOV #BITOS,RPCS2(R4)- D0 A MASSBUS INIT 
BR 8$ : CONTINUE 
046050 7$: JSR ,EMPTYO :CLEAR THE DRIVE" $ QUEUE 
040454 CLRB = DRVSTA(R1) :SET DRIVE TO OFFLINE 
040464 CLRB = ORVTYP(R1) ;CLEAR THE DRIVE TYPE INDICATOR 
045426 8$: JSR »SET.IE [SET IE’ WITHOUT TRE’ 
RESREG SRESTORE RO = R5 
5 PC RETURN 
; INTERRUPT SERVICE ROUTINE 
000001 040520 ISR:  MOVB  #1,ACTORV ZSET “ACTIVE DRIVER" FLAG 
SAVREG TSAVE R 
040560 MOV RPADR,R4 ZADDRESS 0 OF RPCS1 
040546 MOV DTUW,R1 [GET DATA TRANSFER UNDERWAY’ INDICATOR 
BLT 1$ SBRANCH IF NO DATA TRANSFER UNDERWAY 
043236 JSR PC,1D [CALL TRANSFER DONE 
043550 1$: JSR PC.SC CALL SPECIAL CONDIT1ONS 
RESREG RESTORE ys 
040520 CLRB ACTDRV CLEAR ACTIVE RORIVER FLAG 


7 TRANSFER DONE ROUTINE 
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469 043236 005037 043460 1D: CLR PERM ZCLR PERMENANT ERROR FLAG 
471 043242 105061 040444 CLRB —s DRVACT(R1) sSET DRIVE ACTIVE INDICATOR TO IDLE 
472 043246 O13 787 177777 040546 MOV #-1,DTUW [NO DATA TRANSFERS UNDERWAY 
473 043254 006301 ASL R 
474 043256 012761 177777 040526 MOV #-1,TIMER(R1)  sCANCEL TIMEOUT 
475 043264 906201 ASR R1 
476 043266 013 0@ 040514 MOV TRNSWT,R2 :GET “'DPB'’ FROM THE "‘TRANSFER WAIT’ QUEUE 
477 043272 005037 040514 CLR TRNSWT i TRANSFER WAIT QUEUE=-CLEAR QUEUE 
478 04376 05876¢ 000200 000016 BIS WBITO7,16(R2) :SET 
479 043306 010164 000010 MOV R1,RPCS2(R4) tSFLecT THE DRIVE 
480 peeeie sls tL 045036 JSR 0,RD.RP s TRANSFER ERROR(TRE=1)? 
481 043314 000900 RPCS1 
482 043316 042670 C17 
483 043320 006126 ROL (SP)+ 
484 043322 100430 BMI 4$ sBR IF YES 
485 043326 005737 040522 TST SAVEFG [SAVE RHXX/RPO7 REGISTERS ? 
486 043330 100008 BPL 1$ : FN 
487 043332 004737 045262 JSR PC, SVRHXX SYES==SAVE THE REGISTERS 
488 043336 122762 000135 000002 15: CMPB es #185,,2(R2) [IE FROM DIAGNOSTIC COMMAND ? 
489 043344 001003 BNE $ BRANCH IF NOT 
490 043346 116164 040550 000016 MOVB —- ATABIT(R1),RPAS(R4) TRESET THE ATA BIT 
493 043354 004737 043462 2$: JSR PC,WC.HK :SEE IF WRITE CHECK TO BE PUT IN QUEUE 
494 043360 004737 046144 JSR PC. GETREQ [GET DPB POINTER 
498 043364 005702 TST R2- SENTRY FOR DRIVE ? 
043366 001403 BEQ 3$ :BR IF NOT 
500 043370 004737 041542 JSR PC,OPT :CALL OPTIMIZER 
501 043374 000207 RTS URN 
502 043376 012714 000113 3$: MOV #113, (R4) :RELEASE THE DRIVE 
203 043402 000207 RTS SRETU 
505 043404 652762 100100 000016 4$: BIS #81115 1B1T06, 16(R2) SET DATA ERROR FLAG, 
506 043412 004737 046050 JSR PC,EMP EMPTY THE 'DRIVE'S WAIT’ QUEUE 
507 043416 004737 045262 JSR PC EVRHKX ERY E THe © AHMAR TREO? REGISTERS 
308 043422 012714 040111 MOV #46111, (R4) SISSUE A DRIVE CLEAR’ 
510 043426 032764 040000 000012 BIT #B1T14,RPDS(R4) :DID ERROR BIT CLEAR? 
511 043434 001406 BEQ 5$ 
512 043436 005237 043460 INC PERM ET PERA ERROR FLAG 
513 043442 116164 040550 000016 MOVB ATABIT(R1D, email 3CLR ATA BIT 
314 043450 000207 RTS ; RETURN 
516 043452 012714 000113 5$: MOV #113, (R4) yISSUE A RELEASE TO THE DRIVE 
317 043456 000207 RTS PC SRETURN 
219 043460 000000 PERM: .WORD 0 :PERMENANT ERROR FLAG 
321 ZFORCE WRITE CHECK ROUTINE 
238 043462 005737 001506 WC.HK: TST WRTCHK 3D0 WRITE CHECK ? 
524 043466 001427 BEQ “BR IF NO 
525 043470 12076¢ 000161 000002 CMPB = #WRTDAT, SCOMND(R2) *LAST COMMAND A WRITE COMMAND ? 
26 043476 9010¢ BNE 1$ SBRANCH [F NOT 
27 043500 004037 046070 JSR RO, DRVQUE [PUT INTO THE QUEUE 
328 043504 000420 BR 1$ SBRANCH IF QUEUE IS FULL 
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RPO? PERF EXER MACRO V04.00 1-JAN=83 12:06:52 PAGE 57-9 SEQ 0192 
043506 005062 000016 CLR STATUS(R2) :CLEAR "DONE’ BIT IN DPB 
Oc331¢ 116262 000166 900027 MOVB SAPS CRS. spnevbin3) sPREVIOUS COMMAND 
043520 016262 000012 000034 MOV SCVL (RZ) SPREVAC2(R )  SPREVIOUS CYLINDER ADDRESS 
0433 6 016262 000010 000032 MOV SSEC(R2) -SPREVA(R2) sPREVIOUS SEC , TRK ADDRESSES 
043534 105062 000024 CLRB =: SCODE (R25 ;CHANGE WRITE DATA TO WRITE CHECK DATA 
043540 112762 000151 000002 MOVB  #WCKD, $COMND(R2) ;CHANGE FUNCTION CODE TO WRITE CHECK 
043546 000207 1$: RTS PC SEXIT 
3 sSPECIAL CONDITION ROUTINE 
40 043550 116403 000016 SC: MOVB  —RPAS(R4),R3 ;READ "'RPAS'' REGISTER 
41 043554 001013 BNE 2$ :BRANCH IF ANY 'ATA® BITS SET 
42 043556 004937 045036 JSR RO,RD.RP SREAD CONTROL AND STATUS REGISTER 
43 043562 000000 RPCS1 
44 043564 042756 C18 
45 043566 106126 ROLB = (SP)+ r1S “IE"'=1? 
46 043570 100404 BMI 1$ TYES, NO DRIVES TO CHECK 
043572 000401 BR 1$=4 :BRANCH OVER ERROR, REPLACE BRANCH WITH ‘NOP* 
48 SIF ERROR REPORT I$ DESIRED 
49 043574 104001 EMT 1 SREPORT ILLEGAL INTERRUPT 
50 043576 004737 045426 JSR PC,SET.IE [SET INTERRUPT ENABLE 
3 043602 000207 1$: RTS PC :RETURN 
2g 043604 005046 2$: CLR -(SP) sPROCESS ALL DRIVES THAT HAVE 
54 043606 110316 MOVB = R3, (SP) [STORE ATA BITS ON STACK 
55 043610 005001 CLR R1 :SETUP R1 & R3 TO CHECK DRIVE 0 
56 043612 012703 000001 MOV #1,R3 
57 043616 030316 $C3: BIT R3, (SP) :1S THIS ATA BIT SET ? 
58 043620 001005 BNE sc§ ‘BR IF YES 
59 043622 005201 $C4: INC R1 sMOVE TO THE NEXT DRIVE 
60 043624 106303 ASLBR3 SANY MORE DRIVES TO CHECK ? 
043626 001373 BNE C3 'BR IF YES 
043630 005726 TST (SP)+ [CLEAN OFF THE STACK 
043632 000207 RTS PC 
043634 105761 040504 SCS:  TSTB  DPRQS(R1) ;1S THERE PORT REQUEST OUTSTANDING ? 
66 043640 001402 BEQ 1$ :BR IF NO 
043642 000137 044204 JMP $C13 sSTART THE OUTSTANDING COMMAND 
9 043646 105761 040454 1$: TSTB = ORVSTACR1) y1S THIS DRIVE ON-LINE ? 
043652 003011 BGT 2$ ‘BR IF YES 
71 043654 004737 046144 JSR PC,GETREQ [GET DPB POINTER 
72 063660 004737 045262 JSR PC. SVRHXX [SAVE THE RHXX/RPO7 REGISTERS 
73 043664 004737 044120 JSR PC.SCl2 [SAVE RPDS, RPER1, RPER2 AND RPER3 
74 ZALSO DO A DRIVE INIT (DRVINT) 
75 043670 105761 040454 TSTB. = DRVSTA(R1) [DID DRIVE COME ON-LINE ? 
76 063674 003405 BLE 3 [BR IF NO 
77 043676 105761 040444 2$: TSTB = ORVACT(R1) SDRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY ? 
78 043702 001020 BNE SC :BR IF EITHER 
79 043704 004737 044120 JSR PC,SC12 [SAVE R°DS, RPER1, RPER2 AND RPER3 
80 SALSO DD A DRIVE INIT (DRVINT) 
81 043710 105761 040454 3$: TSTB = ORVSTA(R1) [CHECK ON DRIVE'S STATUS 
82 043714 100412 BMI :BR IF UNSAFE 
83 043716 012746 000111 MOV #111, -(SP) SDRIVE CLEAR 
BL 043722 004037 045130 JSR RO,WRT.RP ‘WRITE THE COMMAND INTO RPCS1 
as 043726 000000 RPCS1 SREGISTER INDEX 
B6 043730 043772 S(8 SPARITY EXIT ADDRESS 


605 044010 
06 


6 
607 044012 
608 044016 


609 
610 044022 
611 044026 


ol¢ 
6135 044034 


625 044114 


626 

627 044120 

628 044124 

629 pee ige 

630 044130 
044132 

44140 


AAA 
eas 
DOnNOUSWN— 


00 
642 044202 


649 044204 
650 044210 
651 044216 


040550 000016 


PC,GETREQ 
RPCS2(R4) 
$c 


S “YES 
IT(R1) ,RPAS(R4) 
ATABIT(R1).SRCHWT sCLEAR IMPLIED SEEK SET 

;WORD INDEX 


R 3W 
#-1,TIMER(R1)  ;STOP ee 


15 
. SEQ 0193 


ATABIT(R1) ,RPAS(R4) CLR ATTN BIT 


CHECK FOR MORE DRIVES 
sSETUP_TO ADDRESS WORDS 


R1 
Se eameatteics ;STOP THE TIMER 


DDRESS 
HE DPB POINTER FROM THE QUEUE 
ECT DRIVE 
CESS THE SEARCH 
Dd 
S- 
T 
oc 
NT 
PROCESS THE UNCORRECTABLE PARITY ERROR 
CHECK MORE DRIVES 


-SET DRIVE IDLE 
SRCHWT ;DOING A SEARCH OPERATION FOR 
“AN 1/0 COMMAND? 


:BRANCH IF YES 
PREV OVE REQUEST FROM QUEUE 


miemoriwm ma- 


E 
#BITO7,16(R2) SET 


+ ogg REGISTERS? 


: “SAVE ALL OF THE RHXX/RPO7 REG'S 
sCLEAR ATTENTION BIT 


sRESTORE 
START A REQUEST 
CHECK FOR MORE DRIVES 


B] APCS SELECT DRIVE 


T. THE STATE OF THE DRIVE 
— EXIT 


AR THE STACK 
CESS THE PARITY ERROR 
LECT THE DRIVE 


“CLEAR THE ATTENTION BIT 
sINITEALIZING THE DRIVE ? 
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652 044222 001424 BEQ 2$ :BR IF NOT 
653 044224 sozo8, 040474 CLRB DPINT(R1) sCLEAR THE INIT INDICATOR 
654 044030 004037 040750 JSR RO, DRVINT :GO INIT THE DRIVE 
655 044234 990240 NOP SDUMMY PARITY ERROR RETURN 
656 044 38 105761 040454 TSTB = DRVSTA(R1) [DRIVE ONLINE ? 
657 044242 003014 BGT 2$ :BR IF YES == START ORDER 
658 044244 905708 TST R2 SQUEUE ENTRY FOR THE DRIVE 
659 044246 O014¢ BEQ 4$ ‘BR IF NOT 
660 044250 004737 046144 JSR PC,GETREQ “GET DPB ADDRESS 
661 044254 05276¢ 140000 000016 BIS #81115 !B1T14,16(R2) 3 INE ORM USER THAT DRIVE OFFLINE 
662 044262 004737 045262 JSR PC, SVRHXX ;SAVE THE REGISTERS 
663 044266 004737 046166 JSR PC ;POPQUE :REMOVE THE QUEUE 
664 044272 000411 BR 4$ 
666 044274 032764 004000 000000 28: BIT #B1T11,RPCS1(R4) :DVA SET ? 
667 044302 001003 BNE :SET THEN CALL OPT 
673 044306 004737 045426 JSR PC,SET.IE 
67% 044310 000402 BR 4$ 
676 044312 004737 041542 3$: JSR PC,OPT :START THE REQUEST 
677 044316 000137 043622 4$: yMP $cé ‘PROCESS OTHER DRIVES 
679 ;/RPO7 TIMER ROUTINE 
680 3s CALL 
681 : MOV #TIME,-(SP) sELASPED TIME IN MILLISECONDS ON THE STACK 
oes : JSR PC,RPTMR sCALL RPO7 TIME ROUTINE 
684 044322 005737 040520 RPTMR: TST ACTDRV SCHECK “ACTDRV t ACTSTR" 
685 044326 001027 BNE 4$ IF NON ZERO EXIT 
044330 112737 000001 040521 MOVB  #1,ACTSTR 3SET "'ACTSTR 
687 044336 104412 SAVREG [SAVE RO = RS 
688 044340 005001 CLR R1 SSTART WITH DRIVE 0 
689 044342 005003 CLR R3 
690 044344 005763 040526 1$: TST TIMER(R3) 71S THE TIMER RUNNING? 
691 044350 002406 BLT 2$ SBRANCH IF NO 
692 044352 166663 000002 040526 SUB 2(SP), TIMER(R3) : COUNT THE INTERVAL 
693 044360 003002 BGT 2$ R IF NO SOFTWARE TIMEOUT 
694 044362 004737 044412 JSR PC,STO PALL SOFTWARE TIMEOUT ROUTINE 
695 044366 005201 2$: INC R1 [MOVE TO NEXT DRIVE 
696 044370 005723 TST (R3)¢ 
697 044372 022701 000010 CMP #8.,R1 :0UT OF DRIVES? 
698 044376 00356¢ BGT 1$ SBRANCH IF N 
699 044400 10441 3$: RESREG SRESTORE RO’ RS 
700 044402 105037 040521 CLRB. = ACTSTR i ZERO ACTIVE SOF TWARE TIMEOUT ROUTINE FLAG 
701 044406 012616 4$: MOV (SP)+, (SP) ADJUST THE STACK 
702 044410 000207 RTS PC RETURN 
oe SOFTWARE TIMEOUT ROUTINE 
706 SNOTE: THIS ROUTINE MUST BE ENTERED AT PRIORITY 6 
707 : OR GREATER 
708 : 
709 3 CALL 
710 : MOV #DRVNUM,R1 :DRIVE NUMBER 
711 : JSR PC,STO + BOF TUARE TIME ROUTINE 


1 
712 : RETU 
713 
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714 044412 010146 STO: MOV R1,-(SP) sSAVE R1 
715 044414 010346 MOV R3,°(SP) sSAVE R3 
716 044416 017704 040560 MOV RPADS RG :GET ADDRESS OF “'RPCS1" 
717 044422 010164 000010 MOV R1,RPCS2(R4) SELECT THE DRIVE 
718 nek} 004037 045036 JSR RO,RD.RP sREAD THE DRIVE STATUS REGISTER 
719 044432 000012 RPDS 
720 044434 044724 b 3 
721 044436 105726 TSTB = (SP) + 1S WORV''=1? 
122 044440 1004 BMI 6 :BR IF YES 
i 044442 105761 040474 1$: TSTB = DPINT(R1) ‘TRYING TO INTIALIZE THE DRIVE ? 
724 0446446 001070 BNE 6$ ‘BR 
725 044450 105761 040504 TSTB DPRQS(R1) 3 OUTSTANDING PORT REQUEST FOR THE DRIVE ? 
726 064454 001965 BNE 6$ ‘BR IF 
727 044456 B13706 040514 MOV TRNSWT,R2 :GET "‘DPB’’ FROM THE ‘‘TRANSFER WAIT’’ QUEUE 
728 044462 02013 040546 CMP R1,0TUW S TRANSFER UNDERWAY ON THIS DRIVE? 
729 044466 00140¢ BEQ 2 BRANCH IF YES 
730 044470 00473 046144 JSR PC,GETR GET DPB ADDRESS 
731 04447 052762 101000 000016 2$: BIS apiti5'e1109, 16(R2) ;SET THE ERROR FLAGS 
732 044502 004737 045262 JSR PC,SVRH sSAVE RHAX/RPO7 REGISTERS 
733 044506 012764 (000040 000010 MOV #Bit05, FRBCS2CR4). :"INIT'' THE MASS BUS 
734 044514 105061 040444 CLRB = DRVACT :DRIVE 18 IDLE 
735 044520 005001 CLR R1 ‘START WITH DRIVE 0 
736 044522 005003 CLR R 
737 044524 004037 040750 3$: JSR RO,DRVINT sINIT. THIS DRIVE 
r38 044530 000475 BR 9$ :PARITY ERROR RETURN 
40 044532 105761 040444 TSTB DRVACT(R1) rt ye BEFORE THE INIT.? 
741 044536 001414 BEQ 5$ YES=-- ANCH 
742 044540 013702 040514 MOV Hey! Fi GET “BB " FROM THE ‘‘TRANSFER WAIT’ QUEUE 
743 044544 023701 040546 CMP W,R hyRe WAS A DATA TRANSFER UNDERWAY ON THIS DRIVE? 
744 044550 001402 BEQ pry eS ee NCH 
745 044552 004737 046144 JSR PC,GETREQ T THE Ht 4 td hae QUEUE 
746 044556 052762 100400 000016 4$: BIS #BiT15!BIT08, 16¢/ 3} 3; INFORM yste INIT. 
044564 105061 040444 CLRB —s DRVACT(R1) :SET DRIVE ACTIVE T MDL 
748 044570 012763 177777 040526 5$: MOV #1, TIMER(R3) STOP THE TIMER 
749 044576 005723 TST (R35+ UPDATE THE INDEX 
750 044600 005201 INC R1 Une REMENT THE DRIVE NUMBER 
751 044602 022701 000010 CMP #8.,R1 SLAST DRIVE BEEN CHECKED? 
752 044606 003346 BGT 3$ :NO=-LOOP 
753 044610 012737 177777 040546 MOV #-1,0TUW NO DATA TRANSFERS actir@ 
754 044616 005037 040514 CLR TRNSWT [CLEAR TRANSFER WAIT QUEUE 
755 044622 004737 045772 JSR PC ,,CLRQUE ‘CLEAR ALL REQUEST QUEUES 
736 044626 000500 BR 13§ EXIT 
758 044630 116405 000016 6$: MOVB RPAS(R4) RS ;READ ATTENTION REG 
759 044634 136105 040550 BITB ATABIT(R1), R5 *I1S ATTENTION FOR THIS DRIVE UP ? 
760 044640 001017 BNE 3 YES--BRANCH 
761 044642 105761 040474 TSTB DPINT(R1) S TRYING TO INTIALIZE THE DRIVE ? 
762 044646 001031 BNE TBR IF YES = DRIVE NOT ONLINE 
763 044650 105761 040504 TSTB DPRQS(R1) 3 OUTSTANDING PORT REQUEST FOR THE DRIVE ? 
764 044654 001045 BNE 11 YES = NO RESPONSE TO REQUEST 
765 044656 020137 040546 CMP R1,0TUW DATA TRANSFER UNDERWAY FOR THis DRIVE 
766 044662 601267 BNE 1 FON 
767 044664 0064037 045036 JSR RO,8D.RP TREAD CONTROL AND STATUS REGISTER 
768 044670 000000 RPCS1 
769 044672 044724 $ 
770 044674 105726 TSTB (SP)¢ sCHECK “RDY* 
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040474 
040504 
177777 


042756 


040474 
040454 
177777 
046144 


140000 


177777 
040504 
046144 


100004 
046050 
045262 


040560 
000000 
040560 
000010 
010000 
020000 


000002 


000002 


040526 


040526 


000016 


049526 


000016 


000004 


000000 
173456 
000004 


7$: TSTB 


8$: MOV 
9$: JSR 


10$: 


11$: 


12$: 
13$: 


1$ 

DPINT(R1) 
DPRQS(R1) 
#-1, TIMER(R3) 
13$ 


Pc,C18 
13§ 


3 
Pp 
R 
C 


#-1,TIMER(R3) 
DPRQS(R1) 
PC,GETREQ 


13$ BR IF N 
#B1T15 18112, 16(RD> 3 IN 


(SP)+,R1 
PC 


XO te te 


F 
QUEUE ? 


STOP THE TIMER 

sCLEAR PORT REQUEST INDICATOR 
GET DPB ADDRESS 

; QUEUE NONE FOR DRIVE ? 


NFORM USER rr PORT REQUEST ERROR 
;CLEAR THE QUEUE FOR THE DRIVE 

iSAVE RHXX/RPO7 REGISTERS 

sRESTORE R3 


:RESTORE R1 
RETURN 


ROUTINE TO READ A RHXX/RPO7 REGISTER 


sCALL 

JSR 
INDEX 
ERRADR 


RETURN 


RD.RP: 


1$: MOV 


2$: ADD 


RO,RD.RP 


(SP) 
RPADR, 


P) 
geitts, @RPADR 
(SP) ,4(SP) 


(SP)+.(SP)+ 
(RO) ,RO 


#2,R0 


3GO READ A REGISTER 
REG. INDEX FROM BASE 
4 ag re ee ERROR STARTING 


sAT THIS ADDRESS 
CONTENTS OF REG. IS ON THE STACK 


SAVE RO 
sADDRESS OF THE 


sREG 
READ THE CONTENTS OF THE REG 
CHECK IF NON-EXIST DRIVE 


NED BIT SET ? 
RROR EXIT 
ay SET ? 
sMOVE THE RO TO TOP OF STACK 
CLEAR OFF THE STACK 
seeron EXIT ADDRESS 


NORMAL EXIT 


SEQ 0196 


C 16 
SEQ 0197 


2000009000009 
INNA OP 
Fun OO wo 


co 
vd 
wu 


Co 
wis & & 
Oo ~ 
SN NAOQAMUIUNS SW 


000000000000 00 Co 
PARAS TAUIUT 
CONOUSWN— 
Sooooooooocooocoo 
Py oP oP ot ot ot ot et et et oe 
OOrn SEOFSRNVFORANGHOONORURNOS 


Pte 
oo 


US SWWNN 
SAAD MPOWWAAAWAAAAAAAAAAMINAS NO 


own 
SO-NO COON 2282250 — 


So 
= 
= 


i 
is 

874 

875 

876 045 
877 862508 
878 045266 
879 045270 
880 045274 
881 045500 
ss si 
a HE 


oooo-ooo=— 
meoo———0OoO 
WI A— wv 


TST (SP)+ sCLEAR OFF STACK 
3$: RTS RO EXIT 
sROUTINE TO WRITE A REGISTER 
3s CALL 
: MOV DATA, =(SP) :DATA TO BE LOADED ON THE S$ 
: JSR RO,WRT RP [CALL THE ROUTINE TO LOAD CORTTED THE REG 
: in DEX S INDEX OF THE REGISTER T 
; ERRADR TADDRESS TO RETURN TO ON 
: RETURN TERROR FREE RETURN 
WRT.RP 
MOV (RO) +,=(SP) : FORMING THE REG ADDRESS 
BNE ANCH IF NOT RPCS1 
000150 000004 CMP #150,4(SP) :DATA HTANS COMMAND ? 
173410 1$: 1sT8 @RPADR ‘SEE IF CONTROLLER READY 
173402 MOV @RPADR,-(SP) |; READ RPCS1 
SWAB ss (SP) [MERG THE A17,A18,PSEL BITS 
177770 BIC #°(7, (SP) [CHOP OFF THE REST BITS FROM RPCS1 
000007 MOVB ($B) ,7(SP) SATTACH A17,A18,PSEL TO COMMAND 
TST (SP) SRESTORE STACK LEVEL 
040560 2$: ADD RPADR, (SP) STHE DEST REG ADDRESS 
000004 000000 MOV 4(SP).a(SP) ‘WRITE THE REGISTER 
040560 MOV RPADR, (SP) 3; CHECK NED,PAR BITS 
000010 ADD #RPCSO, (SP) 
010000 000000 BIT WBITI2-a(SP) | INONE EXIST DRIVE ? 
BNE 3$ ‘BRANCH IF IT IS 
040560 MOV RPADR, (SP) SADDRESS RPER1 
000014 ADD #RPERT, (SP) : 
000010 000000 BIT #B1T3,a(SP) [PAR SET ? 
BNE 3$ ‘BRANCH IF SO 
000002 ADD #2,R0 : NORMAL RETURN 
BR 4$ SEXIT 
3$: MOV (RO) ,RO SERROR EXIT 
i$: TST (SP)+ CLEAR OFF THE STA 
MOV (SP)+, (SP) E RO TO TOP OF STACK 
RTS RO ert 
sROUTINE TO SAVE THE RHXX/RPO7 REGISTERS AS PER DPB+14 
CALL 
: MOV #DPB,R2 ;ADDRESS OF DRIVE PARAMETER BLOCK 
; JSR PC, SVRHXX SSAVE THE DRIVES REG'S 
SVRHXX: SAVREG AVE RO - R5 
TST R2 QUEUE ENTRY FOR THE DRIVE ? 
BEQ 7$ ‘BR IF NONE 
040560 MOV RPADR,R4 
000010 MOVB  (R2),RPCS2(R4) ;SELECT DRIVE 
000014 MOV 14(R2) ,R3 “GET THE ERROR TABLE POINTER 
BEQ 7$ “EXIT IF NO ADDRESS 
045342 CLR 3 “COUNTER & POINTER 
045342 000022 1$: CMP $,#RPDB "REACHED THE BUFFER REGISTER ? 
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RPO? DRIVER 

885 045320 001006 BNE 2$ :BR IF NOT 

886 045 ; eae! 000200 000010 BIT #B1T07,RPCS2(R4) -"OR’ SET ? 

BBB be2 2 Nite ran (R3) {STORE RPDB AS ZEROES 

> . 

889 045334 500508 BR 4$ ° CONT INUE 

891 045336 004037 045036 $: JSR RO,RD.RP :READ THE SELECTED REGISTER 

892 045342 000000 $f: “WORD 0 ‘REGISTER INDEX 

893 045344 045370 +t TERROR RETURN ADDRESS 

894 045346 012625 MOV (SP) +, (R3)+ SSTORE THE REGISTER CONTENTS 

895 045350 023727 045342 000046 4$: CMP 3$,, #RPEC2 SREACHED THE END ? 

896 049556 001406 BEQ 6$ ‘BR IF Y 

897 045360 062737 000002 045342 ADD #2,3$ SINCREMENT THE REGISTER INDEX 

898 045366 000751 BR 1$ [CONTINUE READING THE REGISTERS 

900 045370 004737 047670 5$ JSR PC,C17 ;PROCESS THE UNCORRECTABLE PARITY ERROR 

901 045374 013746 001234 6$ MOV SCPUOP,-(SP) | CHECK THE CPU (RH) TYPE 

902 045400 042716 003777 BIC #°C174000,(SP) LEAVE THE CPU TYPE BITS 

903 045404 022726 030000 CMP #30000,(SP)+* | SEE IF RH70 

904 045410 001004 BNE 7$ SIF NE, NO 

905 045412 063704 040566 ADD RHEXT,RG :POINT TO RPBAE 

906 045416 012423 MOV (RG) +, (R3)+ ‘STORE THE CONIENTS 

907 045420 011413 MOV (RG), (R3) 'GET RP 

908 045422 104413 7$: RESREG SRESTORE RO = RS 

909 045424 000207 RTS PC RETURN 

911 sROUTINE TO SET THE INTERRUPT ENABLE (IE) BIT IN RPCS1 WITHOUT GETTING A 

912 ‘TRANSFER ERROR (TRE). 

913 CALL 

914 ; MOV #DRVNUM,R1 :DRIVE NUMBER 

915 : JSR FC,SET.1E :SET INTERRUPT ENABLE ROUTINE 

318 : RETURN 

918 045426 010446 SET.1E: MOV R4,=(SP) SSAVE R4 

919 045430 013704 040560 MOV RPADR,R4 [PICKUP ADDRESS OF RPCS1 

926 945434 010164 000010 MOV R1,RPCS2(R4) SELECT DRIVE 

921 045440 011446 MOV (R4) (SP) *READ RPCS‘ 

922 045442 052716 040000 BIS #BIT14, (SP) ‘SET THE ‘'TRE'’ BIT OF THE WORD READ 

923 045446 000316 SWAB ss (SP?) ADJUST FOR DATO 

924 045450 112714 000100 MOVB #BIT06,(R4) SET IE" 

925 045454 032764 010000 000010 BIT MBITI2,RPCS2(R4) 31S “NED'=1?2 

926 045462 001002 BNE 1$ :YES--CL 

927 045464 005726 TST (SP)+ [CLEAN OFF THE STACK 

928 045466 000402 BR 2$ 

385 045470 112664 000001 1$: MOVB = (SP) +, 1(R4) SCLEAR ‘TRE’ 

931 045474 012604 2$: MOV (SP)+.R4 SRESTORE R4 

932 045476 000207 RTS PC SRETURN TO CALLER 

934 sQUEUE COUNT 

935 045500 000 QCNT: .BYTE 0 SDRIVE 9 

936 045501 000 "BYTE 0 [DRIVE 1 

937 04550¢ 000 “BYTE 0 DRIVE : 

938 04550 000 "BYTE 0 DRIVE 

939 045504 000 “BYTE 0 TDRIVE 4 

940 045505 000 "BYTE 0 SDRIVE 5 

941 045506 000 "BYTE 0 “DRIVE 6 
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045772 


Mononononefrs 


045500 


BYTE 0 sDRIVE 7 
QUEUE INPUT POINTERS 


QINPT: .WORD apRvO DRIVE 0 
“WORD © QDRV1 DRIVE 1 
“WORD —QDRV :DRIVE @ 
“WORD © QDRV :DRIVE 
“WORD © QDRV4 DRIVE 4 
“WORD © QDRV5 DRIVE 5 
WORD  QDRV6 DRIVE 6 
WORD QDRV7 DRIVE 7 

;QUEUE OUTPUT POINTERS 

QOUTPT: .WORD aprvO DRIVE 0 
“WORD QDRV1 DRIVE 1 
“WORD QDRV2 DRIVE 2 
WORD  QDRV3 DRIVE 3 
WORD QDRV4 DRIVE & 
“WORD  QDRV5 DRIVE 5 
WORD QDRV6 DRIVE 6 
“WORD © QDRV7 DRIVE 7 

QSTART: .WORD aQDRVO DRIVE 0 STA 

QSTOP: <WORD aQDRV1 DRIVE 0 STO 
WORD QDRV :STOP DRIVE 
“WORD QDRV STOP DRIVE 
“WORD © QDRV4 STOP DRIVE 
“WORD QDRVS STOP DRIVE 
“WORD © QDRV6 STOP DRIVE 
“WORD © QDRV7 STOP DRIVE 
“WORD QTERP STOP DRIVE 

;DRIVE REQUEST QUEUES 

QDRVO: .BLKW 10 

QDRV1: <BLKW 10 

QDRV2: <BLKW 10 

QDRV3: .BLKW 10 

QDRV4: <BLKW 10 

QDRVS: <BLKW 10 

QDRV6: <BLKW 10 

QDRV7: <BLKW 10 

QTERP=, 

ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 

CALL 

: JSR —- PC, CLRQUE 

CLRQUE: SAVREG ;SAVE RO - R 
Mov —s- #QCNT,R2 ZERO THE QU 
CLR (Re) DRIVES 0 & 
CLR (R2)+ DRIVES 2 & 
CLR (Ro) + DRIVES 4 & 
CLR (Re) + DRIVES 6 & 


RT ADDRESS 


6--START 
7 


UE COUNTS 


NOulwro<c 


E 1 START ADDRESS 


SEQ 0199 
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045500 
045510 


000010 
045500 
045510 
000002 
045510 


045550 


045530 


045500 


045510 
045552 


045510 


1$: MOV 


2$: MOV 
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DRIVER 


#8.,R3 sMOVE THE STARTING 
#OSTART,RI1 SADDRESS OF THE QUEUE INTO 
(Ri) +, (Ra) 3THE QUEUE INPUT POINTER 
1$ 
#8.,R3 ZMOVE THE STARTING ADDRESS 
#OSTART,RI1 sOF THE QUEUE INTO THE 
(R1)+, (R2)+ SQUEUE OUTPUT POINTER 
2$ 

;RESTORE RO - RS 
PC 


sEMPTY THE QUEUE SPECIFIED BY R1 


CALL 
$ MOV 
; JSR 


EMPTYQ: CLRB 
ASL 


ROUTINE TO PUT 


CALL 


SeSe tease 
= 
“w 
@ 


DRVQUE: oe 


1$: ASR 
2$: RTS 


#ORVNUM,R1 DRIVE NUMBER 
PC ,EMPTYQ 
QCNT(R1) CLEAR NUMBER OF ITEMS IN QUEUE 


SFMPTCRT) SOUTPT (RT) sSET OUTPUT QUEUE POINITER=INPUT POINTER 
PC 
A REQUEST IN QUEUE 


#0PB,R2 sADDRESS OF DRIVE PARAMETER BLOCK 
#DRVNUM,R1 DRIVE NUMBER 
RO ,DRVQUE :GO_ PUT REQUEST IN QUEUE 


RETURN HERE !F QUEUE IS FULL 
sRETURN HERE IF REQUEST IS IN QUEUE 


#10,QCNT‘R1) 21S QUEUE FULL? 
:BR_ IF YES=TAKE RETURN1 
+ ala s INCREMENT QUEUE COUNT 


R2,@QINPT(X1) ;PUT THIS REQUEST IN QUEUE 
#2.QINPT(R1) [UPDATE THE QUEUE POINTER 
QINPT(R1) ,uSTOP(RI) TIME TO RESET THE POINTER 
QSTART(R1) ,QINPT(R1) ;YES=--RESET POINTER 


(RO) + z TAKE RETURN 2 
RO RETURN TO USER 


sROUTINE TO GET THE "‘DPB’’ ADDRESS OF NEXT REQUEST IN QUEUE 


[ON RETURN, 


R2 WILL CONTAIN POINTER ADDRESS OF "'DPB'' REQUESTED OR 


:ZERO IF NO REQUEST IN QUEUE. 


CALL 
: MOV 
: JSR 


GETRFO: CLR 


#DRVNUM,R1 DRIVE NUMBER 
PC ,GETREQ :GO GET THE REQUEST 
R2 


SEQ 0200 
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1056 046146 105761 945500 TSTB QCNT(R1) 71S THERE ANY REQUEST IN QUEUE? 
1057 ears 001404 BEQ 2$ NO---BRANCH 
1058 046154 80638) 1$: ASL R1 
1059 046156 017102 045530 MOV DQOUTPT(R1),R2 ;PICKUP ‘‘DPB’' POINTER FOR THIS DRIVE 
1060 046162 006201 ASR R1 
196) 046164 000207 2$: RTS PC RETURN TO USER 
1988 ;ROUTINE TO ‘'POP’' THE REQUEST FROM QUEUE 
1005 SON RETURN, R2 WILL CONTAIN POINTER ADDRESS OF ''DPB'’ REMOVED 
1oe7 CALL 
1068 3 MOV #ORVNUM,R1 DRIVE NUMBER 
Hs 4 ; JSR PC ,POPQUE :CALL TO REMOVE RLQUEST 
1071 046166 105361 045500 POPQUE: DECB QCNT(R1) ;DECREMENT QUEUE COUNT 
107e 046172 006301 ASL Pp} 

1073 046174 017102 045530 MO¥ @QOUTPT(R1),R2 ;GET THE ‘'DPB'' POINTER 

1074 046200 005071 045530 CLR @QOUTPT(R1) ;REMOVE DPB ADDRESS FROM THE QUEUE 
1075 046204 062761 000002 045530 ADD #2,QOUTPT(R1) | ;UPDATE THE QUEUE POINTER 

1076 046212 026161 045530 045552 CMP QOUTPT(R1),QSTOP(R1) ;TIME TO RESET THE POINTER? 
1077 046220 001003 BNE :NO=-BRANCH TO EX 

1078 046222 016161 045550 045530 MOV USTART(R1),QOUTPT(R1) ;YES--RESET THE POINTER 

1079 046230 006201 1$: ASR R1 

1080 046232 000207 RTS PC RETURN TO USER 
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DEV 
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1 .SBTTL DEVICE PARAMETER BLOCKS 
§ sBLOCK LOCATION EQUATE STATEMENTS 
5 = 0 sDRIVE NUMBER (BYTE) 
6 000001 FMT = 1 ‘FMT,HCI,EC] OR OFFSET CODE (BYTE) 
? 00000 SCOMND = $FMT+1 SOPERATION CODE (BYTE) 
8 00000 PSEL = SENT +e ‘PORT SELECT & BITS Al6, A17 (BYTE) 
9 000004 SWCNT = $FMT+ ‘WORD COUNT (2°S COMP) 
10 000006 $BUF = $FMT+5 SBUFFER ADDR OR REGISTER TABLE POINTER 
11 000016 $SSEC = $FMT+7 SSECTOR ADDRESS OR 1ST REG ADDR 
12 00011 STRK = $FMT+10 STRACK ADDRESS OF LAST REG ADDR 
1 000912 SCYL = $FMT#11 'CYLINDER ADDR 
14 000014 SREG = $FMT+13 ZREGISTER STORAGE (1F ERRO 
13 000016 STATUS = $FMT#+15 ‘STATUS WORD (SET BY DRIVER) 
4 SDRIVE'S HISTORY AND CURRENT INDICATOR STORAGE EQUATES 
19 000020 SWRDL = SFMT+17 :WORD COUNT (NOT 2's COMP) 
20 000022 SSSEC = $WRDL+2 SSECTOR SIZE FOR CURRENT OPERATION (256. OR 258.) 
21 000024 SCODE = $WRDL+4 [PRESENT COMMAND SELECTION CODE 
22 000026 SPACK = $WRDL+6 SREAD/WRITE COMMAND INDICATOR (BYTE) 
23 000027 SPREVO = $WRDL+7 PR REV IOUS COMMAND SELECTION CODE (BYTE) 
24 000030 SPATTC = $WRDL+10 ‘PATTERN CODE 
25 000032 SPREVA = $WRDL+12 SPREVIOUS ADDRESS= TRK, SEC, CYL (DOUBLE WORD) 
26 000036 SRDPAS = $WRDL+16 [WORDS READ PER PASS (DOUBLE WORD) 
27 000042 SWIPAS = $WRDL+22 [WORDS WRITTEN PER PASS (DOUBLE WORD) 
28 000046 SSEEKS = $WRDL+26 ‘NUMBER OF SEEKS PER PASS (DOUBLE WORD) 
29 000052 SOPERC = $WRDL+32 SOPERATICN COUNT D0 UBLE WORD) 
30 000056 SWIOTL = $WRDL+36 ‘TOTAL WORDS WRITTEN X10*6 (DOUBLE WORD) & 
31 1 X10°6 REPETITION COUNTER (DOUBLE WORD) 
32 000066 SRTOTL = SWRDL+46 [TOTAL WORDS “6 (DOUBLE 
33 31 X10*6 REPETITION COUNTER (DOUBLE WORD) 
34 000076 SSTOTL = SWRDL+56 ‘TOTAL SEEK COUNT (DOUBLE WORD) 
35 000102 STOTAL = $WRDL+62 STOTAL ERRORS COUNT (ALL TYPES) 
36 000104 SOFT = $WRDL+64 :*SOFT’ ERROR COUNT 
37 000196 SHARD = $WRDL+66 ;"HARD' ERROR COUNT 
38 000110 SkI = $WRDL+70 '*SkI" ERROR COUN 
39 000112 $MISPO = $WRDL+72 [PROG DETECTED M1 S=POSI TIONING ERROR COUNT 
40 000114 SPASSC = $WRDL+74 [PASS COUNTE 
41 000116 SFAIR = $WRDL+76 SOPERATION QUEUE ‘FAIRNESS' COUNT 
42 000120 SHLDWC = $WRDL+100 :HOLD WORD FOR "RELBUF' ROUTINE 
44 yINDEX EQUATES TO THE NEXT OPERATION PARAMETERS 
46 000122 SNCODE = $WRDL+102 NEXT OPERATION CODE 
47 000123 SNPATC = $NCODE+1 [NEXT PATTERN 
48 000124 SNSEC = SNCODE +¢ ENEXT § 
49 000125 SNTRK = $NCODE+ SNEXT TRACK 
50 000126 SNCYL = $NCODE+4 [NEXT CYLINDER 
51 000130 SNEXT = $NCODE+6 [PARAMETER SELECTION INDICATOR 
32 000132 $FIRST = $NCODE#10 TFIRST OPERATION INDICATOR 
56 yINDEX EQUATES FOR MAXIMUM/MINIMUM ADDRESSES 
56 000134 MAXCYL = $NCODE+12 :MAXIMUM CYLINDER ADDRESS 
57 000136 MINCYL = MAXCYL#2 [MINIMUM CYLINDER ADDRESS 
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DEVICE PARAMETER BLO 


5 000140 
5 serge 
60 00144 
61 000146 
6 
6 
64 
65 00150 
66 000152 
67 00154 
68 000156 
69 
70 
71 
72 000160 
73 
74 
75 
76 000166 
77 000170 
78 000172 
79 000174 
80 000176 
81 000200 
82 000202 
83 00020 
84 000206 
85 000210 
86 000212 
87 000214 
88 000216 
89 000220 
90 000222 
91 000224 
92 000226 
93 000230 
94 000232 
95 000234 
96 000236 
97 000240 
98 

106 

046234 000 
046236 
046250 046422 
046252 
046476 001 
046500 
046512 046664 
046514 
046740 002 
046742 


046754 047126 


000 


000 


000 


s INDEX EQUATES FOR CYLLMT, TRKLMT, SECLMT ADDRESSES LIMITS AND 1ST FE CYLINDER 


MAXTRK = MAXCYL44 
MINTRK = MAXCYL46 
MAXSEC = MAXCYL+10 
MINSEC = MAXCYL+#12 
CYLLMT = MAXCYL+14 
SECLMT = CYLLMT+2 
TRKLMT = CYLLMT+4 
1 = CYLLMT+6 


sDRIVE SERIAL NUMBER AREA INDEX 


SDRVSN = CYLLMT+10 
sRP/RH REGISTER EQUATES 


$RPCS1 = SDRVSN+6 
$RPWC 39 = -S$RPCS1+2 
SRPBA == S$RPCS1+4 
RPDA_ = $RPCS1+6 
SRPCS2 = S$RPCS1+10 
RPDS) = $RPCS1+12 
SRPER1 = SRPCS1+14 
$SRPAS = $RPCS1+16 
SRPLA = $RPCS1+20 
$RPDB == $RPCS1+22 
SRPMR1 = S$RPCS1+24 
SRPDT = $RPCS1+26 
SRPSN == $RPCS1+30 
SRPOF = $RPCS1+32 
SRPDC = S$RPCS1+34 
SRPCC) == $RPCS1+36 
SRPER2 = S$RPCS1+40 
SRPERS = SRPCS1+42 
SRPEC1 = SRPCS1+44 
SRPEC2 = SRPCS1+46 
SRPBAE = $RPCS1+50 
$RPCSS = SRPCS1+52 


;DPB_FOR DRIVE 0 
DRIVEO: .BYTE 0,0 
~BLKW 


5 
WORD .+#$RPCS1-$REG 
“BLKB  $RPCS3-SREG 


DPB FOR DRIVE 1 
DRI E 


RIVE1: .BYT 1,0 
-BLK 5 
WORD ot + Sa) ye 
»BLK $SRPCS3-$RE 


:DPB FOR DRIVE 2 
DRIVE2: -BYTE 2,0 


WORD - *$RPCS1-$REG 


ain SECTOR ADDRESS 


;CYLINDER ADDRESS Liat 
;SECTOR ADDRESS LIMIT 
:TRACK ADDRESS LIMIT 
1ST FE CYLINDER 


EQUATE 
DRIVE SERIAL NUMBER (6 BYTES) 


:RP REGISTER STORAGE 


DRIVE NUMBER 0 


DRIVE NUMBER 1 


DRIVE NUMBER 2 


od 


SEQ 0203 


LN 


CZRJOAO RPO? PERF EXER MACRO V04.00 1 
DEVICE PARAMETER BLOCKS 


046756 
047202 003 
047204 
047216 047370 
047220 
047444 004 
047446 
047460 047632 
047462 
047706 005 
047710 
047722 050074 
047724 
050150 006 
050152 
050164 050336 
050166 
050412 007 
050414 
050426 050600 
050430 
107 
108 
109 
110 050654 000 
111 050655 000 
112 050656 000 
113 050657 
114 050660 177776 
115 050662 063324 
116 050664 
117 050665 
118 950666 000000 
119 050670 050674 
120 050672 000000 
122 050674 


000 


000 


000 


000 


000 
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-BLKB = $RPCS3-$REG 


F 
E3: .BYTE 3,0 


F 
E4: ¢ pL 4,0 


J 16 


W 
-WORD .+$RPCS1-$REG 
-BLKB = $RPCS3-S$REG 


~BLK 
WORD . +$RPCS1-$REG 


-BLKB  $RPCS3=$REG 


;DPB_FOR DRIVE 5 
DRIVES: .BYTE 2° 0 


~-BLKW 
“WORD  #$RPCS1-$REG 


-BLKB $RPCS3-$REG 


;DPB_ FOR DRIVE 6 
DRIVE6: ype §.0 


LKW 
; WORD . +$RPCS1-$REG 


-BLKB $RPCS3-$REG 


FOR DRIVE 7 
E7: .BYTE 7,0 


kw 5 
WORD .+#$RPCS1-$REG 
-BLKB  $RPCS3-$REG 


sDRIVE NUMBER 3 


:DRIVE NUMBER 4 


DRIVE NUMBER 5 


DRIVE NUMBER 6 


DRIVE NUMBER 7 


sGENERAL PURPOSE DEVICE PARAMETER BLOCK 


GENDPB: .BYTE 0Q 
-BYTE QO 
-BYTE 0 
-BYT 0 
-WORD =2 
«WORD CYLNDR 
BYTE 9 
-BYTE 0 
-WORD 0 
«WORD GENREG 
«WORD 9 

GENREG: .BLKW 24 


sDRIVER PARAMETER BLOCK, DRIVE # 
OFFSET Wrst OR FMT16, HCI OR ECI 


teeeL AND 


K 
ECYLINDER.A ADD 
ADDR 
3 STATUS 

sREGISTER STORAGE 


DRESS 
ESS mi K. ALL RHXX/RPO7 REG'S 


SEQ 0204 


SEQ 0205 
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0601 " 00 103 119 MSPRM atid}: pit ge DRIVE PARAMETERS (L) N ? 

060 00 104 117 MESFE: .ASCIZ <CRLF>/DO YOU WANT TO WRITE ANYWHERE bn’ MEDIA (LIN? / 
Be 060 69 00 OVRWRT: <ASCII <CRLF> 
85 060310 07 011 041 ASCII <BELL>/ ! CUSTOMER DATA WILL BE OVERWRITTEN !/<CRLF> 
&6 060 60 007 01 1 055 ASC ] ] <BEL A Seow ensocenssee wooo oooooooooccocoosooe/<( Ri F > 
87 060430 103 117 116 eASCIZ 7CONT INUE (L) 2? / 
88 060451 200 O28 040 FEONLY: .ASCIZ <CRLF>/* TESTING WILL OCCUR ON FE CYLINDER ONLY */<CRLF> 
ay 060526 200 05 040 MREAD: .ASCIZ <CRLF>/* PROGRAM IS LOCKED IN ‘READ ONLY’ MODE #/<CRLF> 


«EVEN 


ood me 
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.SBTTL PARAMETER ENTRY TABLE 
060604 060742 031 1466 PARLST: .WORD pA ms} 800. .WRDCNT 
4 06061 961001 933000 a1479 “WORD gi “INTRVL 
5 0606 612 1 077777 0146 ~ WORD Pants 67.,CMPTIM 
6 060626 061515 077777 001474 “WORD PA ay, 3787: gbASSES 
7 060634 061061 900017 001476 WORD 
8 06064 06124 00001 91300 “WORD {.1 Hf :danou tnoy 
9 060650 061354 000007 001502 -WORD PARIG 
10 060656 061451 000001 001504 WORD PAni6.1 ENDING 
11 060664 061407 000001 001506 ;WORD PARI +1 WRTCHK 
15 060672 061537 000001 00151 .WORD  PAR21.1. RANDOM 
32 060700 000900 ;WORD 0 ;TABLE TERMINATOR 
24 060702 040 057 040 SLASH: .ASCIZ @/ a 
25 060706 200 103 110 ASKPAR: .ASCIZ <CRLF>/CHANGE PARAMETERS fh) N 3 / 
26 060742 115 103 130 PARI:  .ASCIZ /MAXIMUM WORD COUN 
27 061001 124 111 115 PAR2:  <cASCIZ /TIME BETWEEN REPORTS. rit minutes, Q=NO REPOR REPOR » / 
28 061061 104 101 124 PAR3:  .ASCIZ /DATA PATTERN NUMBER (O=RANDOM, 1-15. =F IXED) 
29 061136 115 101 130 PAR4: <.ASCIZ /MAX x CY / 
30 061147 115 111 116 PARS: <cASCIZ /MIN CYL / 
31 061160 115 101 130 PAR6: .ASCIZ /MAX TRK / 
32 061171 115 111 116 PAR7: .ASCIZ /MIN TRK / 
33 061202 115 101 130 PAR8:  ASCIZ /MAX SEC / 
34 061213 115 111 116 PARQ: .ASCIZ /MIN SEC / 
38 061224 127 117 122 PARI: .ASCIZ /WORD COUNT MODE (O=RANDOM, I=FINED) / 
39 061271 124 111 115 PARI2: .ASCIZ /TIME BETWEEN DATA COMPARES | (IN MINUTES, O=ALWAYS) / 
40 061354 122 105 101 PAR14: .ASCIZ /READ TO WRITE RATIO (0-7) 
41 061407 105 116 101 PARIS: <ASCI2Z /ENABLE WRITE CHECK (O=NO 1evE ES) / 
42 061451 105 116 104 PAR16: .ASCiZ /END OF PASS MODE Cos =SEEKS, 1=DATA) / 
43 061515 116 125 115 PARI9: <ASCIZ 7MURBER OF PASSES 
47 061537 123 105 105 PAR21: .ASCIZ /SEEK MODE (O=RANDOM, 1=SEQUENTIAL) , 
52 EVEN 


RB eH PPAR BBBeBeM  eBOMBeBeBeB 089069 069 191). ~~ ve) s 
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1 .SBTTL DRIVE PARAMETER TABLES (DPB) 
§ ;PARAMETER TABLE POINTERS FOR ADDRESS LIMITS 
5 061604 061624 TABLE: .WORD TABLE ZPARAMETER TABLE FOR DRI 
B 061606 0616 2 .WORD TABLE TPARAMETER TABLE FOR DRIV ° 
061610 06174 .WORD TABLE PARAMETER FOR DRiV : 
061612 062006 -WORD TABLE [PARAMETER TABLE FOR DRIV 
061614 062054 - TABLES [PARAMETER TABLE FOR DRIVE & 
061616 06 122 TABLES ZPARAMETER TABLE FOR DRIVE § 
061620 0621 <WORD TABLE [PARAMETER TABLE FOR DRiv 5 
. 061622 062236 .WORD TABLE [PARAMETER TABLE FOR DRIV 
10 ;PARAMETER TABLE FOR ADDRESS LIMITS 
20 061624 061147 000000 046372 TABLEO: .WORD PARS,O.MINCYL*DRIVEO 
pe 885 061136 001166 04637 -WORD  PAR4.630. ,MAXCYL*DRIVEO 
061640 061171 000035 046376 -WORD  PAR7.29. .MINTRK*DRIVE 
061646 061160 000035 046374 -WORD PAR6,29..MAXTRK+DRIVE 
061654 061213 600041 04640 .WORD PAR9.33..MINSEC¢DRIVE 
061662 061202 000041 04640 -WORD PAR&,33.,MAXSEC*DRIVEO,0 
061672 061147 000000 046634 TABLE1: .WORD PARS,O.MINCYL*DRIVE? 
061700 061136 001166 04663 -WORD PAR4,6$0. ,MAXCYL¢DRIVE? 
061706 061171 000035 04664 ;WORD PAR7.29. .MINTRK+DRIVE1 
061714 061160 000035 046636 -WORD  PAR6.29..MAXTRK*DRIVE1 
061722 061213 000041 046644 -WORD PAR. 33..MINSEC*DRIVE! 
061730 061202 000041 046642 .WORD PAR8,33..MAXSEC*DRIVE1.O 
061740 061147 000000 047076 TABLE2: .WORD PARS,O.MINCYL+DRIVE2 
061746 061136 001166 047074 -WORD PAR4.6$0. ,MAXCYL*DRIVE2 
061754 061171 000035 047102 -WORD  PAR7 29. JRINTRK*DRIVE 
061762 061160 000035 047100 -WORD FAR6,29..MAXTRK*DRIVE 
061770 061213 000041 047106 “WORD PARS. ~ MINSEC+DRIVE 
061776 061202 000041 047104 .WORD PARB,33..MAXSEC*DRIVE2,0 
062006 061147 000000 047340 TABLE3: .WORD PARS,O.MINCYL+DRIVE3 
062014 061136 001166 047336 -WORD PAR4.6$0. ,MAXCYL*DRIVES 
062022 061171 000035 047344 <WORD PAR7.29. .MINTRK*DRIVE 
062030 061160 000035 047342 -WORD PAR6.29..MAXTRK¢*DRIVE 
062036 061213 000041 047350 -WORD PAR, 33..MINSEC*DRIVE 
062044 061202 000041 047346 -WORD PAR8.33..MAXSEC*DRIVES,0 
062054 061147 000000 947602 TABLE4: .WORD PARS,O.MINCYL+DRIVES 
062062 061136 001166 047600 .WORD PAR4.630. ,MAXCYL*DRIVES 
062070 061171 000035 047606 -WORD PAR7,29..MINTRK*DRIVES 
062076 061160 000035 047604 -WORD  PAR6.29..MAXTRK*DRIVES 
062104 061213 000041 047612 -WORD PAR9,33.,MINSEC*DRIVES 
062112 061202 000041 047610 -WORD PARB,33..MAXSEC*+DRIVE4,0 
062122 061147 000000 050044 TABLES: .WORD PARS,O.MINCYL+DRIVES 
062130 061136 001166 090042 SWORD PAR4.6%0. .MAXCYL LsDRIVES 
062136 061171 000035 05005 ;WORD PAR7.29..MINTRK*DRIVE 
062144 061160 000035 050046 ;WORD PAR6, +99. -MAXTRK #DRIVE 
062152 061213 000041 050054 ;WORD PAR. 33. .MINSEC¢DRIVE 
062160 061202 000041 050052 -WORD PARB.33..MAXSEC*DRIVES,0 
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Ex 1% 
DRIVE PARAMETER TABL 8 

062170 0611 

062176 1136 

062204 0611 FA 

06 iF 11 1 

06 g 121 3 16 

062226 06120 14 0 

062236 061147 000000 050550 TABLE7: .wORD BARS, 0 ,MINCYL*DRIVE? 

06 76 061136 11 §29320 ;WORD +650. RAXCYL*DRIy ? 

06 952 061171 0000 50554 WORD pan SRINTRK 

062260 061160 0000 30552 ;WORD ° HANTARODALY ? 

062266 121 900041 5056 WORD Pane’ ~ oMINSEC*DRIVE? 

062274 061202 000041 0650556 -WORD PARB. 33. -MAXSEC*DRIVE7,0 


es 
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TINE TO A MEMORY 
’ -S8TTL ROUTINE TO SIZE MEMORY 
pare tat aaa 
ZFCALL: 
ish PC, SSIZE 
SSLSTAD WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION 
04 010046 SSIZE: MOV 7 (SP) 33 
be 96 10146 MOV a -($P) :iSave On Tue Stat 
06231 13746 114 MOV aviié,-(sP) 3r5A RERORY VECTOR PS & PC 
Gc3800 $1273? GUBTIE goons, FY. IASGat? ——sstcnone panttv Emons wie S121N 
06 ze oi 737 00000 Boot 1G MOV 
06 13746 000004 MOV SrERVEC (SP) Z7SAVE PRESENT ERROR VECTOR PS & PC 
06 340 01 46 000006 nov C+2,-¢ 
062344 0106 $P_RO sSAVE THE STACK POINTER 
33S€T THe CERRVEC +g TO THE PRESENT 5 
062346 104409 ¢ ® OLD _PSW AND we Pe ON STAC 
062350 0126 900006 4 (SP) +, a#ERRVEC? 2*' : SAVE THE PSW IN ast anvece? 
062354 012737 4 000004 v #2$ ,a#ERRVEC iiSET F Fok’ 1m£ QUT 
062362 012701 $35000 MOV #20000,R1 SIF IRST ADDRESS 
06 005711 i$: TST (R1) :itest THIS ADDRESS 
062 20 905721 TST (R1)¢ TISTEP TO NEXT ADDRESS 
06237 775 BR 1$ t:TRY ANOTHER 
062374 162701 000002 28: SUB #21 pROP BACK 
062400 01 96 MOV RO, SP ESTORE THE STACK 
062402 0126 106 MOV SS ERESTORE ERROR VECTOR 
062406 012637 000004 MOV (SP) + AME RRVEC 
062412 012637 000116 MOV (SP)+,a#116 ZZRESTORE MEMORY ERROR VECTOR 
062416 012637 000114 MOV (SP)+.aa1l4 
062422 010137 062434 MOV R1,SLSTAD zsLAST T ADDRESS 
062426 012601 MOV (SP)+,R1 RES 
2430 012600 MOV (SP)+,RO 3 RESTOR — RO 
432 000207 RTS PC 
2434 000000 SLSTAD: .wORD 0 z7CONTAINS THE LAST ADDRESS 


R 
SAD 
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am 
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© 
hes 


$ 
-SBTTL BUSADR = GET BUS ADDRESS AND VECTOR ADDRESS 


RAAB Hes Bbed ISR. oR ha” 


4 
5 ROM THE T 
EMOTE: THIS ROUTINE DESTROYS RO-Ré 
4 3 
10 ; J PC ,BUSADR 
12 3 RETURN 
13 0624 5737 001332 BUSADR: TST HGADR z INPUT FROM TTY REQUESTED? 
14 062464 2046 % ANCH 
15 06244 0 1 32 L ¢ VES@=CLEAR THE REQUEST FLAG 
1 06 430 104401 001 YPE ScRLF 
é 0624 50 7 001 1$: cLR tft tte soarets C FLAG 
062460 012 90 1272 MOV @SRPADR RO FIRST AD 
4 06 464 1044 2576 TYPE MRPCS1 sis 
5 0624 9 01104 MOV (RO) ,=(SP) PRES NT RPCS1 ADDRESS 
6 062472 10440 TYPOC iT T 
062476 10440 056530 TYPE  ,BLNKS2 ity 
S bes288 ytsent Roy” csp pent RSDRESS OF ASCII TEXT 
304 008787 001334 Ist FLAG. TWAS (6) ‘rwPeD? 
‘ 06 319 boussy 062614 JSR aS .CK.WUN cONTER A AND STORE THE NEW ADDRESS 
516 000756 BR 1$ TERROR EXIT 
5 062520 912700 1274 28: MOV #SRPVEC,RO SVECTOR APCRESS 
062524 104401 062695 TYPE MRPVEC "RP 
0625 911046 MOV (RO), =(SP) ZPRESERT RHXX/RPO7 VECTOR ADDRESS ON THE STACK 
06 2 10440 TYPOC TY 
9 06 104401 056530 TYPE  ,BLNKS2 TY 
40 062540 106411 RDLIN TREAD NIRY 
41 062542 912601 MOV (SP)+,R1 TASCII TEX ADDRESS 
4g 062544 005737 001334 1ST CFLAG TWAS (*C) TYPED? 
43 062550 001 341 BNE 1$ ; Y 
44 062552 537 062614 JSR R5,CK.NUM SENTER AND STORE NEW ADDRESS 
45 062556 000760 BR 23 TERROR EXIT 
& 
‘3 062560 012700 90127 2 33: MOV #SRPADR,RO FIRST ADDRESS OF NEW PARAMETERS 
48 062564 012701 056 MOV @RPADR,RI SFIRST ADDRESS OF WHERE TO Pul THEM 
49 06 370 01 4 MOV (R ‘. Rae 7BUS ADDRESS 
5C 062572 012021 MOV (RO) +. (R1)4 [VECTOR ADDRESS 
31 062574 000297 RTS PC [RETURN 
3g 062576 122 120 103 MRPCS1: .ASCIZ a@RPCSI=@ 
54 062605 122 120 126 MRPVEC: .ASCIZ2 aRPVEC=a 
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NUM = CHECK NUMBE 
; 
4 
10 062614 Ieee 
11 61 10546 
i 6 1044 
1 6 127 
14 0626 
15 0626 1 
16 6 424 
17 6 et 7? 
18 640 1 ; 
19 062642 1204 
0 062646 1 19 
1 65 
‘Hise ie 
s Bes tees 
; sess tee 
062664 ot Hs: 
8 062670 8 
062672 00530 
0 062674 001401 
1 062676 000754 
g +9 3444 112104 
peste 001004 
5 062704 005702 
062706 001401 
7? 062710 Bi 0sie 
8 062712 303 2 
39 062714 15603 
40 062716 012603 
41 062720 Beene 
42 062722 00020 
72 962724 000000 
79 063324 
064330 


COCTAL 


000067 


177770 
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ae STRING FoR LEGAL CHARACTERS 


MOV #ADR RI 
JSR RS,CK. cose 
RET 
Ret 


CK.NUM: MOV 5 feet 


MOV R3,-(5P) 
MOV 4, =(SP) 
MOV *R 
CLR R 
1$: MOVE (R1)*, R46 
BEO 
CMPB ORG #0 
BLO 
(MPR RG #*? 
BHI 5 
ASL R 
acs 5 
ASL R 
acs 5 
ASL R 
acs g 
BIC #177770, RG 
ADD 4 ,R2 
DEC Rg 
BEQ $ 
BR € 
2$ MOvVB (R1)¢,R4 
BNE 
3$ TST R 
BEO 4 
MOV R2, (RO) 
4$ TST (R5)¢ 
5$ MOV (SP)+,R4 
MOV (SP)+.R3 
MOV (3P)+ Re 
RTS R 
EVEN 
PATCH: .WORD 0 
CYLNDR: .BLKW 258. 
ENDPGM=. 
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<CRLF>/ R#<CR> 
<CRLF>/ T&#<CR> 
<CRLF>/WT#<CR> 


<c 


RLF>/ 
<CRLF>/ D&<CR> 
<CRLF>/ S#<CR> 


SEG 0218 


EXT MESSAGE 
<CRLF> 
se HELP MESSAGE CAN ONLY BE TYPED ONCE,/ 
<CRLF>/D0 YOU WANT IT TYPED (L) ? / 
<CRLF> 
<CRLF>/DRIVE PARAMETERS: / 
<CRLF>/MAXCYL :max cylinder adrs/ 
<CRLF>/MINCYL min cylinder adrs/ 
<CRLF>/MAXTRK max track adrs/ 
<CRLFE>/MINTRK min track adrs/ 
<CRLF>/MAXSEC max sector adrs/ 
tS aes min sector adrs/ 
<CRLF>/THE FOLLOWING ARE VALID COMMANDS:/ 
<CRLF>/ WR<CR> 


assign drive and } SEQUENTIAL WRITE data/ 
assign drive and do 

assign drive to do (random or sequential) TEST/ 
assign drive, to do SEQUENTIAL WRITE data and/ 
to do (random or sequential) TEST/ 

DROP a drive from test/ 

type the performance SUMMARY report/ 


SEQUENTIAL READ data/ 


<CRLF> 
<CRLF>/ # is the drive number (0-7 or ‘A* for ail drives)/ 


<CRLF> 
pe ag hat oot Pha REGISTER 


<CRLF>/SW1 
<CRLF>/Sw1 
<CRLF>/SW1 
<CRLF>asw0d 
<CRLF>/SWO 
<CRLF>/SWO 
<CRLF>/SWO 
<CRLF>/SWOS 


<CRLFD>/ 
<CRLF>/SWO04= 
<CRLF>/ 
<CRLF>/SW03= 
<CRLFD/ 


<CRLF>/ 
<CRLF>/SWO2= 
<CRLF>/ 


AonNOOO—rw 


nhnnnnnnun 


<CRLF>/ 
<CRLF >aSw01= 
<CRLF>/SWO00= 
<CRLF> 
<CRLF>/NOTE: 
<CRLFD/ 
<CRLF>/ 
<CRLF 


( 
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2000 
1000 
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0200 
0100 
0040 
0020 
0010 
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(000004) 
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SETTINGS:/ 
halt on error/ 


| pemeets error typeout/ 


/ 

ring tty bell on error/ 

change end of pass to 1/4 of normala 

inhibit end of pass messages 

display all data compare errors/ 

don't change parameters (loop on present values)/ 

A. partial register display if error/ | 

- no ECC correction results displayed if error/ 

- do not check for maximum error count/ 

B. do not drop drive at end of test/ 

A. display error sector if DCK, DIE or WCF error/ 

B. display sector if DCK uncorrectable after 28th ret 
. if data compare error & SWO7 set, display remainde 
- do not type drive status at program start/ | : 
. do not type performance report after specified tim 
- prompt ‘write anywhere’ question during auto test 

inhibit data compare after read without DCK errora 

read only mode/ 


error occurs, the program will execute/ 


a data compare on the data in memory, reguardless/ 
of the setting in SwO1./ 


> 
<CRLF>/Type control-c (*C) to HALT the program/ 
<CRLF> 


<CRLF>/To change RHXX adresses, start program at address 204/ 


me ee ee es “es “es “ss “es =sbebhbh bbb Ee em 25% 
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63 eH oC 
00 
es 076 00 
4 O708e§ 00 


3 000200 


105 


END 
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<CRLF>/.END OF HELP/ 
<CRLF> 

<CRLF> 


SEQ 0219 
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